3:
n = int(input('Введите число элементов-'))
s = 0
a = list(map(float, input().split())) #создаём список из строки, интерпретируя введённые через пробел значения как float
for i in range(n):
if a[i] > 0: #проверяем i-й элемент массива, больше ли он нуля
s+=1 #инкрементируем счётчик на 1
print('Сумма положительных элементов равна=',s)
4:
from random import randint #подключаем метод randint из библиотеки random
n = int(input('Введите размерность квадратной матрицы-'))
s = 0
a = [[randint(-20,20) for j in range(n)] for i in range(n)] #создаём квадратную матрицу размерностью n, элементы которой являются случайными целими числами от -20 до 20
print(a)
for i in range(n):
for j in range(n):
if a[i][j] < 0: #проверяем элемент на знак
s+=1 #инкрементируем счётчик
print('Количество отрицательных элементов-',s)
program z1;
const n=10;
var i,j,v,m:integer;
a:array [1..n] of integer;
begin
write (' Исходный массив: ');
for i:=1 to n do
begin
a[i]:=random(90)+10;
write(a[i]:3)
end;
writeln;
for i:=1 to n-1 do
begin
m:=i;
for j:=i+1 to n do if a[m] > a[j] then m:=j;
v:=a[i];
a[i]:=a[m];
a[m]:=v
end;
write ('Отсортированный массив: ');
for i:=1 to n do write(a[i]:3);
writeln;
write ('Разность между максимальным и минимальным элементами массива: ',a[n]-a[1])
end.
Объяснение:
После сортировки максимальный элемент стоит на последнем месте в массиве, а минимальный на первом
unit math;
var
d,m:array[1..20] of integer;
sr:real;
kol,s:integer;
Begin
for i:=1 to 20 do begin
d[i]:=RandomRange(140,180);
writeln('Рост ',i,'-ой девочки =',d[i],' см');
m[i]:=RandomRange(140,190);
writeln('Рост ',i,'-го мальчика= ',m[i],' см');
end;
s:=0;sr:=0;kol:=0;
for i:=1 to 20 do s:=s+m[i];
sr:=s/20;
writeln('Средний рост мальчиков= ',sr,' см');
for i:=1 to 20 do
if d[i]>sr then kol:=kol+1;
writeln('Колличество девочек превышающий средний рост мальчиков= ',kol);
End.