1)
var
a,i,count:integer;
begin
readln(a);
count:=0;
for i:=1 to a do
begin
readln(a);
if a mod 13 = 0 then
inc(count);
end;
writeln('Count: ',count);
end.
2)
var
a,i,max:integer;
begin
readln(a);
for i:=1 to a do
begin
repeat
readln(a);
if a>100 then
writeln('Error.Repeat');
until a<=100;
if i = 1 then
max:=a
else
if max < a then
max:=a;
end;
writeln('Max: ',max);
end.
Program Bid;
Uses crt;
var a,b,max:integer;
begin
write(' Введите целое число a=');
readln(a);
write(' Введите целое число b=');
readln(b);
if a>=b then max:=a
else max:=b;
writeln('Max=',max);
end.
Задание 2:Program Text;
var x:integer;
begin
write('Введите цифру 1 или любую :');
readln(x);
if x=1 then write(' В а с я')
else write(' П е т я');
end.
Задание 3:Program Text;
var x:integer;
begin
write('Введите цифру 1, 2 или любую :');
readln(x);
if x=1 then write(' В а с я')
else if x=2 then write(' П е т я')
else write('ERROR');
end.
Задание 4:Program MaxFrom3;
begin
writeln('Введите 3 числа: ');
var (a, b, c) := ReadInteger3;
write('Наибольшее число: ', Max(a,b,c));
end.
const n=10;
var a:array[1..n] of integer;
i, k: byte;
begin
k:=0;
for i:= 1 to n do
a[i]:=random(100);
writeln('Исходный массив: ');
for i:= 1 to n do
write(a[i],' ');
writeln(#10);
for i:=1 to n do
if a[i]=0 then
inc(k);
for i:= 1 to n do
a[i]:=5;
writeln('Новый массив: ');
for i:= 1 to n do
write(a[i],' ');
writeln(#10);
writeln('Количество нулей: ',k);
end.