var i,k:integer;
a:array [1..8] of integer;
begin
write('Массив');
for i:=1 to 8 do
begin
a[i]:=random (75)-50;
write(a[i]:4);
if (a[i]<13) and (a[i] mod 8 = 0 ) then k:=k+1
end;
writeln;
writeln('Количество элементов, меньших 13 и кратных 8 равно ',k);
end.
1) а:=b(13)+a(-2)*3=13+(-2*3)=13-6=7
2) a) readln(а); readln(х);
б) writeln(z)
в) var b,c : real; (чаще всего используется при нахождении вещественных чисел)
var a: integer; (чаще всего используется при нахождении вещественных чисел)
г) if d = a(число, которому нужно прировнять, этот фрагмент цикла(если…,то ..иначе)) then d:=d+20; д) z := x + y; ( : = это знак присвоения)PROGRAM PR1;
var n:integer;
begin
for n:=1 to 7 do
writeln('trud');
end.
var a:array [1..10] of integer;
i,j:integer;
begin
for i:=1 to 10 do a[i]:=random(-50,25);
writeln ('Массив:');
writeln (a);
writeln ('Числа меньше 13 и кратные a[8]:');
for i:=1 to 10 do
if (a[i]<13) and (abs(a[i]) mod abs(a[8])=0 ) then write (a[i],' ');
end.