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.
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.
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.
Answers & Comments
Verified answer
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