А)паскаль программа для создавания программ)0
Вот наполнение массива рандомом. Если нужно наполнение с клавиатуры, то вместо a[i,j]:=random(100)-50; необходимо поставить read(a[i,j]);
const n=3; m=4;
var a:array[1..n,1..m] of integer;
var i, j, count:integer;
begin
count:=0;
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(100)-50;
write(a[i,j]:3, ' ');
end;
writeln;
end;
for i:=1 to n do
for j:=1 to m do begin
if (a[i,j]<0) and (a[i,j] mod 2 <>0) then count:=count+1;
end;
writeln('Количество отрицательных нечетных элементов: ', count);
<span>end.
</span>
Оставьте таблицу перевода долларов в рубли по обычному и льготному (больше $100) курсу. Конкретные значения курсов обмена задаются в ячейках В6 и В7. Задача решается с помощью ввода формулы в ячейку В10 и копирования ее в В11:В43.
Курс $
Льготный курс $
Cумма ($) На руки
5
10
15
20
25
30
35
40
45
50
55
60
65
70
75
80
85
90
95
100
105
110
115
120
125
130
135
140
145
150
155
160
165
170
0
Вроде так
Var a,c,b,i: integer;
f: text;
begin
assign(f,'input.txt');
reset(f);
read(f,a);
read(f,b);
close(f);
c:=a mod 10;
for i:=2 to b do
begin
c:=c*a;
c:=c mod 10;
end;
assign(f,'output.txt');
rewrite(f);
write(f,c);
close(f);
end.