напишите программу которая в последовательности 20 целых чисел определяет их количество и сумму чётных чисел до первого введеного нуля ПАСКАЛЬ ПРОСТАЯ СХЕМА
Const n = 50; // количество чиселvar k: array [1..n] of integer; i, j, n1, n2, minr, a, b: integer; begin writeln(n, ' ', ': d'); a : = random(1000); b : = random(1000); minr : = 10000; for i : = 1 to n do k[i] : = a + random(b); for i : = 1 to n do for j : = 1 to n do if ((abs(k[i] - k[j])) < minr) and (k[i] < > k[j]) then begin minr : = abs(k[i] - k[j]); n1 : = i; n2 : = j; end; writeln(n1, ' ', n2); end.
 другое арбуз почтизнаток (469) в чем отличие информационных ресурсов от материальных? какие есть основные виды национальных информ. ресурсов? закрыт 5 лет назад в лидеры лучший ответ элявысший разум (175060) это виды: библиотечные ресурсы архивные ресурсы научно-техническая информация правовая информация информация государственных (властных) структур отраслевая информация финансовая и информация информация о природных ресурсах информация предприятий и учреждений на фоне продолжающегося роста производства новых видов товаров начался процесс увеличения доли информационных ресурсов по отношению к материальным. информационные ресурсы в различных формах стали самостоятельными объектами (идеи, технологии и ноу-хау, научная и техническая ) [2]. широкое распространение информационных ресурсов дало основание говорить о возникновении информационного общества. информационные ресурсы имеют качественное и принципиальное отличие от материальных, вследствие неприменимости к ним закона сохранения материи. отдавая информационный ресурс, лицо вовсе не лишается его, то есть может использовать его сколько угодно раз. исследуя и оценивая новые информационные и интеллектуальные ресурсы, современные экономисты, едва успевают их описать и дать некоторые характеристики.
pascal
Объяснение:
var
i, kol, summ: integer;
a: array[1..20] of integer;
begin
WriteLn('Введите 20 целых чисел: ');
for i := 1 to 20 do
begin
Write('a[', i, '] = ');
ReadLn(a[i]);
end;
for i := 1 to 20 do
if a[i] <> 0 then
begin
if a[i] mod 2 = 0 then
begin
inc(kol);
summ := summ + a[i];
end;
end
else break;
WriteLn('Количество четных чисел до первого нуля равно ', kol);
WriteLn('Их сумма равна ', summ);
end.