1 Вариант
1. Исправьте ошибки в программе
program 1c1;
uses srt;
var a:array[1...50] of integer;
i,j,k,s:intger;
begin
clrscr
randomize;
for i=1 to 50 do
begin
a(i):=rondom(50)-20;
write(a[i],' ');
end;
for i:=1 to 50 do;
begin
if a[i]0 then k:=k+1;
if a[i]then s:=s+a[i];
end;
writeln(k=,k);
writeln('s=',s);
readln;
end.
2. Дан одномерный массив из 15 целых случайных чисел из диапазона [-10;20]
а) найдите сумму отрицательных чисел
б) замените четные числа на противоположные
2 Вариант
1. Исправьте ошибки в программе
program c1;
usas crt;
var a:array[1..50] of integar;
i,j,k,s,integer;
begin
clrscr;
randomize
for i:=1 to 50 do
begim
a[i]:=rndom(50)-20;
writ(a[i],' ');
end;
for i:=1 to 50 do
begin;
if a(i) mob 2=0 then k:=k+1
end;
writeln('k=',k);
readln;
end.
2. Дан одномерный массив из 25 целых случайных чисел из диапазона [-100;50]
а) найдите количество положительных чисел
б) замените нечетные числа на нули
3 Вариант
1. Исправьте ошибки в программе
programm c1;
uses crt;
var a:arrey[1..50] of integer;
i,j,k,s;integer;
begin
clrcsr;
randomise;
for i=1 to 50 do
begin
a[i]:=random(50)-20
write(a[i],' ');
end;
for i:=-1 to 50 do
begin
if a[i]than s:=s+a[i];
end;
writeln('k=',k);
readln;
end.
2. Дан одномерный массив из 10 целых случайных чисел из диапазона [-5;5]
а) найдите сумму положительных чисел
б) замените четные числа на единицы
4 Вариант
1. Исправьте ошибки в программе
program c1;
yses crt;
var a:array[-10..10] of integer;
i,j,k,s:integer
begin
clrscr;
randomise;
for i=1 to 50 do
begin
a[i]:=random(50)-20;
write(a[i],' ');
end;
fur i:=1 to 50 do
begin;
if a[i] mod = 4 then k:=k+1;
if a[i]then s:=s+a(i);
end;
writeln(k=,k);
writeln('s=',s);
readaln;
end.
2. Дан одномерный массив из 15 целых случайных чисел из диапазона [-100;20]
а) найдите сумму четных чисел
б) замените положительные числа на отрицательные
5 Вариант
1. Исправьте ошибки в программе
program x1;
uses srt;
var a:aray[1...50] of integer;
i,j,k,s:integer;
begin;
clrscr;
randamize;
for i:=1 to 50
begin
a[i]=random(50)-20;
write(a[i],' ');
end;
for i:=1 to 50 do;
begin
if athen k:=k+1;
end
writeln('s=',s);
readln;
end.
2. Дан одномерный массив из 20 целых случайных чисел из диапазона [-100;100]
а) найдите количество нечетных чисел
б) замените числа, кратные 3 на противоположные
6 Вариант
1. Исправьте ошибки в программе
program 1;
uces crt;
var a:aray[1..50] of integer;
i,j,k,s:integer;
begin
clrscr;
randomise
for i:=1 to 50 do
begin
a[i]:=random(50)-20;
writ(a[i],' ');
end;
for i=1 to 50 do
begin
if a[i] mob 2=0 then k:=k+1;
if a[i] mod 2 0 then s:=s+a[i];
end;
writelen('k=',k)
readln;
end.
2. Дан одномерный массив из 30 целых случайных чисел из диапазона [-10;10]
а) найдите количество отрицательных чисел
б) замените числа, оканчивающиеся на 0 на их квадраты
7 Вариант
1. Исправьте ошибки в программе
progrram c1;
uses srt;
var a:array[1..50] of integer;
i,j,k,s:intger;
begin
clrcsr;
randomize;
for i:=1 to 50 do
begin;
a[i]=random(50)-20;
write(a[i],' ');
end;
for i:=1 to 50 do
begin
if a[i]0 then k=k+1;
if a[i]then s=s+a[i];
end
writeln('k=',k);
writeln(s=,s);
readln;
end.
2. Дан одномерный массив из 10 целых случайных чисел из диапазона [0;5]
а) найдите количество единиц
б) замените числа отличные от нуля на их кубы
8 Вариант
1. Исправьте ошибки в программе
program d1;
uses crt
var a:aray[1..50] of integer;
i,j,k,s:intger;
begin
clrscr
ranbomize;
for i=1 to 50 do
begin
a(i):=random(50)-20;
write(a[i],' ');
end;
for i=1 to 50 do
begin
if a[i]0 then k=k+1;
end;
writeln('k=',k)
readln;
end.
2. Дан одномерный массив из 15 целых случайных чисел из диапазона [-20;20]
а) найдите сумму чисел, кратных 8
б) замените положительные числа на нули
9 Вариант
1. Исправьте ошибки в программе
programm c1;
uses crt
var a,array[1..50] of integer;
i,j,k,s,integer;
begin
clrcsr;
randomize;
for i:=1 to 50 do;
begin
a[i]:=random(50)-20;
write(a[i],' ');
end;
for i=1 to 50 do
begin
if [a[i] mod 3=0] then k=k+1;
if a[i]0 then s:=s+a(i);
end;
writeln('k=',k)
writeln('s=',s);
readln;
end.
2. Дан одномерный массив из 25 целых случайных чисел из диапазона [-50;30]
а) найдите количество отрицательных чисел
б) замените числа, начинающиеся на 2 на противоположные
10 Вариант
1. Исправьте ошибки в программе
program 1a;
usess crt;
var a:array[1...50] of integer;
i,j,k,s:integr;
begin
clrscr;
randomise;
for i:=1 to 50 do;
begin
a[i]:=ranbom(50)-20;
write(a[i],' ');
end;
for i:=1 to 50 do
begin;
if a[i]0 then k:=k+1;
if a[i]then s:=s+a[i]
end;
writeln('k=',k);
writaln('s=',s);
readln;
end.
2. Дан одномерный массив из 30 целых случайных чисел из диапазона [-40;40]
а) найдите сумму отрицательных чисел
б) замените числа, кратные 4 на нули
11 Вариант
1. Исправьте ошибки в программе
pragram c1;
uses crt;
var a:arrey[1..50] of integer;
i,j,k,s:integer;
begin;
clrscr;
randomize;
for i=1 to 50 do
begin
a[i]:=randomm(50)-20;
write(a[i],' ');
end;
for i=1 to 50 do;
begin
if a[i]5 then k:=k+1
if a[i]than s:=s+a[i];
end;
writelen('k=',k);
writeln('s=',s);
readln;
end.
2. Дан одномерный массив из 10 целых случайных чисел из диапазона [-10;10]
а) найдите количество нечетных чисел
б) замените положительные числа на их квадраты
12 Вариант
1. Исправьте ошибки в программе
program c1;
usas crt;
var a:aray[1..50] of integer;
i,j,k,s:ineteger;
begin
clrcsr;
ranbomize;
for i:=1 to 50 do
begin;
a[i]:=random(50)-20
write(a[i],' ');
end;
for i=-1 to 50 do
begin
if a[i]0 then k:=k+1;
if a[i]then s:=s+a[i];
end;
writeln('k=',k);
writeln(s=,s);
readln;
end.
2. Дан одномерный массив из 15 целых случайных чисел из диапазона [10;90]
а) найдите сумму четных чисел
б) замените числа, кратные числу Х на число Х
13 Вариант
1. Исправьте ошибки в программе
progrem c1;
uses srt;
var a:array[1..50] of intager;
i,j,k,s:integer;
begin
clrscr
randomise;
for i=1 to 50 do
begin
a(i):=random(50)-20;
write(a[i],' ');
end;
for i:=1 to 50 do;
begin;
if a[i]0 then k:=k+1;
if a[i]then s=s+a[i];
end;
writeln('k=',k);
writeln('s=',s);
readln;
end.
2. Дан одномерный массив из 20 целых случайных чисел из диапазона [-10;50]
а) найдите количество отрицательных четных чисел
б) замените симметричные числа на их квадраты
682
68 018 
