Регистрация
VPVolkov03
29.11.2020 18:44
Информатика
Есть ответ 👍

Дан целочисленный массив из 30 элементов,.элементы могут принимать значения от 0 до 100-, полученные на егэ.опишите на языке или на одном из языков программирования алгоритм, который подсчитывает и выводит средний учащихся, с давших экзамен (получивших оценку более 20 ) гарантирует, что хотя бы один ученик в классе успешно сдал экзамен.исходные данные объявлены так, как показано ниже.использовать другие переменные запрещается. паскаль cost n=30 var a: array [1..n] of integer ; i, x, y: integer; s: real ; begin for i: =1 to n do read on (a [i]); end

244
266
Посмотреть ответы 2

Ответы на вопрос:

tanchik2511
tanchik2511
4,5(21 оценок)
Const n=30; var a: array [1..n] of integer ; i, x, y: integer; s: real ; begin for i: =1 to n do readln (a [i]); x: =0; y: =0; for i: =1 to n do  if a[i]> 20 then begin inc(x); y: =y+a[i]; end; s: =y/x; writeln(s); end.
Jezzyfeed1
Jezzyfeed1
4,6(97 оценок)
Var   i,d,n,k: integer; begin   write('введите трехзначное натуральное число: ');   read(n);   k: =0;   for i: =1 to 3 do begin       d: =n mod 10;       if d mod 3=0 then begin           inc(k);           write(d,' ')           end;       n: =n div 10       end;   if k> 0 then write('- цифры, кратные трем')   else write('таких цифр нет') end. примеры введите трехзначное натуральное число: 569 9 6 - цифры, кратные трем введите трехзначное натуральное число: 184 таких цифр нет замечание: в программе считается, что цифра 0 также кратна трем (как и всем другим числам), поскольку остаток от деления от нуля на 3 равен 0. если это не так, то замените условие d mod 3 = 0 на (d mod 3 = 0) and (d> 0)

Популярно: Информатика