Const n=10;
m=15;
Var A :Array[1..n,1..m] of integer;
i: 1..n; //индекс (номер) строки
j: 1..m; //индекс (номер) столбца
count: byte;
Begin
<Инициализация (формирование) массива…>;
<Вывод сформированного массива>;
for j:=1 to m do // для столбца с номером j
begin
count:=0 // до проверки столбца количество искомых элементов равно нулю
for i:=1 to n do
begin
if A[i,j] mod 2 =0 then count:=count+1 // обработка элемента i в столбце j
end; // цикла по i
writeln(′В столбце ′,j, ′четных элементов - ′, count); //вывод результатов обработки столбца j
end; // цикла по i
end.
1 задача:
import math
a=int(input())
b=int(input())
if(math.fabs(a+b)>20):
print(math.pow(a,2))
else:
b=math.fabs(b)
print(math.sqrt(b))
2 задача:
a=int(input())
if a == 5:
print("Отлично")
elif a == 4:
print("Хорошо")
elif a == 3:
print("Удовлетворительно")
elif a == 2:
print("Плохо")
elif a == 1:
print("Отвратительно")
else:
print("Это не оценка")
3 задача:
x=int(input())
y=int(input())
a=int(input())
b=int(input())
a7 = a%x
b7 = b%y
if(a7>b7):
print("7A")
else:
print("7Б")
4 задача:
import math
print("Введите интервал")
a=int(input())
b=int(input())
while(a<=b):
if a<100:
r=13*math.pow(a,2)
print("X=" + str(a) + " y=" + str(r))
elif a>100:
r=math.pow(a,3)-100
print("X=" + str(a) + " y=" + str(r))
else:
r=30-(a/(a-5))
print("X=" + str(a) + " y=" + str(r))
a=a+1
5 задача:
import math
print("Введите интервал")
a=int(input())
b=int(input())
while(a<=b):
if a<4:
r=3*a-7
print("X=" + str(a) + " y=" + str(r))
else:
r=5*math.pow(a,2)
print("X=" + str(a) + " y=" + str(r))
a=a+1
Объяснение:
var a:array[1..100,1..100] of integer;
i,j,n,min:integer;
Begin
read(n);
min:=MaxInt;
for i:= 1 to n do
for j:= 1 to n do begin
read(a[i,j]);
if abs(a[i,j])<abs(min) then min=a[i,j];
end;
for i:= 1 to n do begin
for j:= 1 to n do begin
a[i,j]:=a[i,j] + min
write(a[i,j]);
end;
writeln;
end;
end.