Восьмого марта в кино пришло 100 . на приключенческий фильм было продано 87 билетов , а на комедию - 63 . сколько посмотрели и тот фильм , и другой ? (каждый посмотрел по меньшей мере один из фильмов)
156
179
Ответы на вопрос:
Program abc; const n=3; m=3; var a: array[1..n,1..m] of integer; b,y,i,j,sum: integer; srd: real; begin writeln('введите числа массива: '); for i: =1 to n do for j: =1 to m do begin write('a[',i,',',j,']= '); readln(a[i,j]); if a[i,j]> 0 then begin sum: =sum+a[i,j]; inc(b); end else if a[i,j]< 0 then inc(y); end; if sum> 0 then begin srd: =sum/1 b; writeln('среднее =',srd); end else writeln('нет положительных членов массива'); if y> 0 then begin writeln('количество отрицательных элементов =',y); end else writeln('нет отрицательных членов массива'); end.
Популярно: Информатика
-
alinkaivankiv05.08.2022 08:50
-
2ihnik2123124.05.2021 10:46
-
Wolf200204.04.2020 12:18
-
paolo9914.03.2021 00:06
-
ab198me16.04.2021 04:47
-
fiasko215.04.2020 14:52
-
Котосоловей08.02.2022 20:32
-
DaniilFPS02.07.2021 13:14
-
Nik0name129.05.2020 20:50
-
bigsoldier01.09.2021 05:31