Помогите плез хоть сколько нибудь задания)
Помогите плез хоть сколько нибудь задания)
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы