1. Написать программу, которая вводит двумерный массив 3х3, выводит его на экран в виде матрицы, а затем выводит количество элементов меньше 5, но больше 0. 6 3 9
5 9 2
3 7 6
Количество элементов меньше пяти, но больше нуля равно 3.
2. Мальчик купил несколько тетрадей по сто рублей и несколько обложек по 50 рублей. Составить программу, которая могла бы подсчитать стоимость всей покупки.
Это паскаль
1)
const
n=3;
var
a:array [1..n,1..n] of integer;
i,j,count:integer;
begin
count:=0;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(21)-10;
write(a[i,j]:4);
if (a[i,j] < 5) and (a[i,j] > 0) then
inc(count);
end;
writeln;
end;
writeln('Количество элементов меньше пяти, но больше нуля равно ',count);
end.
2)
var
t,o:integer;
begin
write('Купленное количество тетрадей: '); readln(t);
write('Купленное количество обложек: '); readln(o);
t:=t*100; o:=o*50;
writeln('Итоговая сумма покупки: ',t+o)
end.