Сам подумай,или начерти на листочке и все поймешь!
Слово русского языка: бумага, ключ хлеб, кот.
все остальные в колонку термин информатики
// PascalABC.NET 3.3
begin
var a:=ReadSeqIntegerWhile(x->x<>0).ToArray;
Print(a.Count,a.Where(x->(x mod 2<>0)and(x mod 3=0)).Count);
end.
Пример:
20 87 15 46 61 0
5 2
Площадь территории города — 797,33 км² км² (после присоединения 7 февраля 2017 года к городу 87,19 км² территории Акмолинской области без населённых пунктов)[1].
Город стоит на степной равнине. Рельеф территории города представляет собой низкие надпойменные террасы. Почвы представлены каштановыми почвами.
Геология города представляет собой палеозойские нерасчлененные отложения в северной части и средне-верхнечетвертичные отложения на южной и западной частях. Большая часть города стоит на осадочных породах, в основном на песчаных суглинках.
Астана расположена на берегах реки Ишим. Город разделяют на две части — правый и левый берег. Гидрографическая сеть города представлена не только единственной рекой Ишим, но и её незначительными правыми притоками — Сарыбулак и Акбулак. В радиусе 25—30 км вокруг города имеются многочисленные пресные и солёные озера.
Климат города резко континентальный. Лето жаркое и сухое, зима морозная и долгая. Среднегодовая температура 3,1 °C. Осадков выпадает 300 мм в год. При средней летней температуре около 20 °C и средней зимней температуре около −15 °C нередки случаи, когда летом жара может превысить 40 °C, а зимой возможны морозы до −50 °C в связи с тем, что города зимой могут достичь сибирские морозы, летом — жаркие воздушные массы Средней Азии.
Выбирай!
var a:array[0..9] of integer;
i,min,max:integer;
begin
for i:=0 to 9 do readln(a[i]);
min:=a[0];
for i:=0 to 9 do if(min>a[i]) then min:=a[i];
max:=a[0];
for i:=0 to 9 do if(max<a[i]) then max:=a[i];
writeln(max,' ', min);
readln;
end.