Wani4kaa
1) Var a:array[1..10000] of longint;n,i:longint; Begin writeln('Введите кол-во элементов в массиве (1<=n<=10000)'); readln(n); writeln('Введите ',n,' элементов массива (-2000000000<=a<=2000000000)'); for i:=1 to n do begin read(a[i]); if (a[i]=0) then a[i]:=1; end; for i:=1 to n do write(a[i],' '); End.
2) Var a:array[1..10] of longint;s:longint; Begin writeln('Генерация массива из 10 элементов...'); for i:=1 to 10 do a[i]:=random(100)-50; for i:=1 to 10 do s+=a[i]; writeln('Сумма отрицательных равна ',s); End.
3) Var a:array[1..10] of longint;i:longint; Begin writeln('Введите 10 элементов массива (-2000000000<=a<=2000000000)'); for i:=1 to 10 do begin read(a[i]); a[i]+=1; end; for i:=1 to 10 do write(a[i],' '); End.
4) Var a:array[1..10] of longint;i:longint; Begin writeln('Генерация массива из 10 элементов...'); for i:=1 to 10 do a[i]:=random(100)-50; writeln('Меняю знаки...'); for i:=1 to 10 do if (a[i]<0) then a[i]:=abs(a[i]) else if (a[i]>0) then a[i]-=a[i]*2; for i:=1 to 10 do write(a[i],' '); End.
5) Var a:array[1..12] of longint;i:longint;k:byte; Begin writeln('Генерация массива из 12 элементов...'); for i:=1 to 12 do begin a[i]:=random(100)-25; if (a[i]=12) then k+=1; end; writeln('Получившийся массив:'); for i:=1 to 12 do write(a[i],' '); writeln('Число 12 встречалось ',k,' раз.'); End.
6) Var b:array[1..10] of longint;i:longint;pr:int64; Begin writeln('Генерация массива из 10 элементов...'); for i:=1 to 10 do begin b[i]:=random(100)-50; if (b[i]>0) then pr*=b[i]; end; writeln('Получившийся массив:'); for i:=1 to 10 do write(b[i],' '); writeln('Произведение положительных элементов=',pr); End.
7) Var b:array[1..15] of longint;i:longint;k:byte; Begin writeln('Введите 15 элементов массива (-2000000000<=b<=2000000000)'); for i:=1 to 15 do begin read(b[i]); if (b[i]<>0) then k+=1; end; writeln('Количество ненулевых элементов=',k); End.
8) Var a:array[1..10000] of longint;n,i,k:longint; Begin writeln('Количество чисел в таблице?'); readln(n); writeln('Какие числа в таблице?'); for i:=1 to n do begin read(a[i]); if (a[i] mod 2=1) then k+=1; end; writeln('Количество нечётных элементов=',k); End.
Answers & Comments
Var a:array[1..10000] of longint;n,i:longint;
Begin
writeln('Введите кол-во элементов в массиве (1<=n<=10000)');
readln(n);
writeln('Введите ',n,' элементов массива (-2000000000<=a<=2000000000)');
for i:=1 to n do
begin
read(a[i]);
if (a[i]=0) then a[i]:=1;
end;
for i:=1 to n do
write(a[i],' ');
End.
2)
Var a:array[1..10] of longint;s:longint;
Begin
writeln('Генерация массива из 10 элементов...');
for i:=1 to 10 do
a[i]:=random(100)-50;
for i:=1 to 10 do
s+=a[i];
writeln('Сумма отрицательных равна ',s);
End.
3)
Var a:array[1..10] of longint;i:longint;
Begin
writeln('Введите 10 элементов массива (-2000000000<=a<=2000000000)');
for i:=1 to 10 do
begin
read(a[i]);
a[i]+=1;
end;
for i:=1 to 10 do
write(a[i],' ');
End.
4)
Var a:array[1..10] of longint;i:longint;
Begin
writeln('Генерация массива из 10 элементов...');
for i:=1 to 10 do
a[i]:=random(100)-50;
writeln('Меняю знаки...');
for i:=1 to 10 do
if (a[i]<0) then a[i]:=abs(a[i])
else if (a[i]>0) then a[i]-=a[i]*2;
for i:=1 to 10 do
write(a[i],' ');
End.
5)
Var a:array[1..12] of longint;i:longint;k:byte;
Begin
writeln('Генерация массива из 12 элементов...');
for i:=1 to 12 do
begin
a[i]:=random(100)-25;
if (a[i]=12) then k+=1;
end;
writeln('Получившийся массив:');
for i:=1 to 12 do
write(a[i],' ');
writeln('Число 12 встречалось ',k,' раз.');
End.
6)
Var b:array[1..10] of longint;i:longint;pr:int64;
Begin
writeln('Генерация массива из 10 элементов...');
for i:=1 to 10 do
begin
b[i]:=random(100)-50;
if (b[i]>0) then pr*=b[i];
end;
writeln('Получившийся массив:');
for i:=1 to 10 do
write(b[i],' ');
writeln('Произведение положительных элементов=',pr);
End.
7)
Var b:array[1..15] of longint;i:longint;k:byte;
Begin
writeln('Введите 15 элементов массива (-2000000000<=b<=2000000000)');
for i:=1 to 15 do
begin
read(b[i]);
if (b[i]<>0) then k+=1;
end;
writeln('Количество ненулевых элементов=',k);
End.
8)
Var a:array[1..10000] of longint;n,i,k:longint;
Begin
writeln('Количество чисел в таблице?');
readln(n);
writeln('Какие числа в таблице?');
for i:=1 to n do
begin
read(a[i]);
if (a[i] mod 2=1) then k+=1;
end;
writeln('Количество нечётных элементов=',k);
End.