Var i,s,s1,s2:integer
Begin
i:= i +1;
s1 := i;
i:= i -2;
s2 := i;
s:= s1*s2;
end
В диапазоне A6:C6 три ячейки и если среднее значение равно двум, то сумма равна 2 х 3 = 6.
В диапазон A6:D6 дополнительно входит ячейка D6, значение в которой равно -5.
Тогда сумма будет равна 6 + (-5) = 1
<em>Ответ: 1) 1</em>
Program p1;
const N=10;
var i,max,sum:integer;
a:array[1..10] of integer;
begin
randomize;
max:=0;
sum:=0;
for i:=1 to N do a[i]:=1+random(10);
for i:=1 to N do write(a[i],' ');
for i:=1 to N do
if (a[i]>max) then max:=a[i];
writeln;
writeln('Максимальное число: ',max);
for i:=1 to N do
if(a[i]=max) then sum:=sum+1;
write('Количество максимальных чисел: ',sum);
end.
1.это сведенья о событиях, явлениях окружающего мира.
2.это наука которая изучает способы передачи, хранения, обработки и поиска информации с помощью компьютера.
4.это информация, которая хранится как единое и имеет своё названия (имя файла).
5.это программа предназначенная для работы с текстом.
6.это программа которая позволяет создавать и изменять рисунки, фотографии, схемы.