90 баллов! Написать 4 программы на языке Паскаль!
90 баллов! Написать 4 программы на языке Паскаль!
Гость
Ответ(ы) на вопрос:
Гость1.
const n=10;
var a:array[1..n] of integer;
i,s,k:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(21);
write(a[i]:4);
end;
writeln;
s:=0; k:=0;
for i:=1 to n do
if a[i]<5 then begin s:=s+a[i]; k:=k+1; end;
writeln('s = ',s,' k = ',k);
end.
Пример:
Массив A:
10 5 2 14 0 10 4 17 7 18
s = 6 k = 3
2.
const n=10;
var a:array[1..n] of integer;
i,k:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(21);
write(a[i]:4);
end;
writeln;
k:=0;
for i:=1 to n do
if a[i] mod 3 = 0 then k:=k+1;
writeln('k = ',k);
end.
Пример:
Массив A:
10 12 10 17 16 7 15 10 7 17
k = 2
3.
const n=10;
var a:array[1..n] of integer;
i,k:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
a[i]:=random(21)-10;
write(a[i]:4);
end;
writeln;
k:=0;
for i:=1 to n do
if a[i]>0
then a[i]:=a[i]+5
else if a[i]<0 then a[i]:=i;
writeln('Измененный массив:');
for i:=1 to n do write(a[i]:4);
writeln;
end.
Пример:
Исходный массив:
6 1 6 -3 7 0 7 -3 1 -2
Измененный массив:
11 6 11 4 12 0 12 8 6 10
4.
const n=10;
var a:array[1..n] of integer;
i,s1,s2:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
a[i]:=random(21);
write(a[i]:4);
end;
writeln;
s1:=0; s2:=0;
for i:=1 to n do
if i mod 2 = 1 then s1:=s1+a[i] else s2:=s2+a[i];
writeln('s1 = ',s1,' s2 = ',s2);
end.
Пример:
Исходный массив:
4 20 12 9 19 6 20 3 15 1
s1 = 70 s2 = 39
Не нашли ответ?
Похожие вопросы