1)Program massiv;
Var mas:array[1..20] of integer;
a,b,i,sum:integer;
Begin
sum:=0;
For i:=1 To 20 Do
begin
mas[i]:= random(100); {Заполняем массив случайными числами в промежетке от 0 до 99 (можешь изменить промежуток}
write(mas[i],' ');
end;
Writeln('Введите a,b');
Readln(a,b);
For i:=1 To 20 Do
begin if (mas[i]>a) and (mas[i]<b) Then
sum:=sum+mas[i];
end;
Writeln(sum);
end.
1) дан одномерный массив найдите сумму всех элементов массива , выведи на экран сам массив и сумму его элементов
1)Program massiv;
Var mas:array[1..20] of integer;
a,b,i,sum:integer;
Begin
sum:=0;
For i:=1 To 20 Do
begin
mas[i]:= random(100);
в промежетке от 0 до 99 }
write(mas[i],' ');
end;
Writeln('Введите a,b');
Readln(a,b);
For i:=1 To 20 Do
begin if (mas[i]>a) and (mas[i]<b) Then
sum:=sum+mas[i];
nd;
Writeln(sum);
end.
