Задача 1 var M: array [1..9] of integer; sum, i: integer; begin writeln('Massiv:'); Randomize; for i:=1 to 9 do begin M[i]:=random(200)-100; write(M[i], ' '); end; writeln; for i:=1 to 9 do begin if M[i] > 0 then write(i, ' '); sum:=sum+M[i]; end; writeln; writeln('Summa = ', sum); readln; end.
задача 2 var A: array [1..7] of integer; sum, i: integer; begin writeln('Massiv:'); Randomize; for i:=1 to 7 do begin A[i]:=random(20)-10; write(A[i], ' '); end; writeln; for i:=1 to 7 do begin if A[i] > 3 then sum:=sum+A[i]; if i mod 2 <> 0 then write(A[i], ' '); end; writeln; writeln('Summa = ', sum); readln; end.
![Напишите форматы типов данных: [ ] € 8 000 5:20:007712305,17Привет!](/tpl/images/4055/8742/43f48.jpg)
1.
var
a: integer;
begin
readln(a);
if ((a mod 10) mod 2 = 0) and ((a mod 100) mod 2 = 0) then writeln('да')
else writeln('нет');
end.
2.
var
a, max: integer;
begin
readln(a);
max : = -1;
while a < > 0 do
begin
if ((a mod 10) mod 2 = 0) and ((a mod 10) mod 2 > max) then max : = (a mod 10) mod 2;
a : = a div 10;
end;
if max < > -1 then writeln(max)
else writeln('');
end.
3.
var
mas: array[0..19] of integer;
sum, i: integer;
begin
randomize;
sum : = 0;
for i : = 0 to 19 do
begin
mas[i] : = -45 + random(1 + 45 + 55);
if (mas[i] mod 2 = 0) and (mas[i] > 0) then sum += mas[i];
end;
writeln(sum);
end.