РЕШИТЕ ЗАДАЧИ ПО ИНФОРМАТИКЕ
ПАСКАЛЬ.
1. Массив из 10 элементов. Вывести отрицательные элементы, кратные 3.
2. Массив состоит из 8 элементов. Вычислить сумму нечётных элементов, больше 10.
3. Массив состоит из 10 элементов. Определить количество элементов, рааных нулю с чётными индексами.
ДАЮ 50 БАЛЛОВ!
Ответы
PascalABC.NET
Задание 1:
### RAI(10).Wh(x → (x<0) and x.D(3)).Pr
Задание 2:
### RAI(8).Wh(x → x.IsOdd and (x>10)).Sum.Pr
Задание 3:
### RAI(10)[::2].Count(x → x = 0).Pr
1) Код программы:
const N = 10;
var a:array[1..N] of integer;
i:integer;
begin
writeln('Массив:');
for i:=1 to N do begin
a[i] := random(-100, 100);
write(a[i], ' ');
end;
writeln();
writeln('Отрицательные элементы, кратные 3: ');
for i:=1 to N do begin
if ((a[i] < 0) and (a[i] mod 3 = 0)) then
write(a[i], ' ');
end;
end.
2) Код программы:
const N = 8;
var a:array[1..N] of integer;
i, sum:integer;
begin
writeln('Массив:');
for i:=1 to N do begin
a[i] := random(-100, 100);
write(a[i], ' ');
end;
sum:=0;
writeln();
writeln('Сумма нечётных элементов, больше 10: ');
for i:=1 to N do begin
if ((a[i] > 10) and (a[i] mod 2 = 1)) then
sum:= sum + a[i];
end;
write(sum);
end.
3) Код программы:
const N = 10;
var a:array[1..N] of integer;
i, kol:integer;
begin
writeln('Массив:');
for i:=1 to N do begin
a[i] := random(-5, 5);
write(a[i], ' ');
end;
kol:=0;
writeln();
writeln('Количество элементов, равных нулю с чётными индексами: ');
for i:=1 to N do begin
if ((a[i] = 0) and (i mod 2 = 0)) then
kol:= kol + 1;
end;
write(kol);
end.