Вопрос построен не корректно. Прошу уточнить что имелось в виду
Задача № 6
var r:array[1..100,1..100] of integer;i,j,n,k,sum:integer; sr:real;
beginrandomize;write('Введите n: ');readln(n);
writeln('Исходная матрица: ');for i:=1 to n dobeginfor j:=1 to n dobeginr[i,j]:=random(10);write(r[i,j]:4);end;writeln;end;writeln;for i:=1 to n dobeginfor j:=1 to n dobeginif i=j then beginwrite(r[i,j]:4);sum:= sum + r[i,j];end elsewrite(' ':4);end;writeln;end;sr:= sum / n;writeln;writeln('sr:=', sr);
writeln;for i:=1 to n dobeginfor j:=1 to n dobeginif sr < r[i,j] thenk:= k + 1;end;end;writeln('k:=', k);end.
1) var n, odd, even, i, a: integer;
begin
odd:=0;
even:=1;
writeln ('Введите число N');
read(N);
writeln('Введите N целых чисел');
for i:=1 to N do
begin
read(a);
if (a mod 2 = 0) then even:=even*a
else odd:=odd+a;
end;
writeln('Произведение чётных чисел равно ', even);
writeln('Сумма нечётных чисел равна ', odd);
end.
2)var N, plus, minus, i: integer;
a: real;
begin
plus:=0;
minus:=0;
writeln ('Введите число N');
read(N);
writeln('Введите N чисел');
for i:=1 to N do
begin
read (a);
if(a > 0) then plus:=plus+1;
if (a < 0) then minus:=minus+1;
end;
writeln('Количество положительных чисел равно ', plus);
writeln('Количество отрицательных чисел равно ', minus);
if (plus<minus) then writeln ('Отрицательных больше чем положительных на ', minus-plus);
if (plus>minus) then writeln ('Положительных больше чем отрицательных на ', plus-minus);
if (plus=minus) then writeln ('Количество положительных равно количеству отрицательных');
end.
Сначало складываешь все в диапозоне от А1 до В2(А1+А2+В1+В2) и потом + С3
Var st:real;
mn:integer;
d:1..7;
begin
write('Введите стоимость 1 минуты в рублях st=');
readln(st);
write('Введите продолжительность разговора в минутах mn=');
readln(mn);
repeat
write('Введите номер дня недели d=');
readln(d);
until d in [1..7];
case d of
1..5:st:=st*mn;
else st:=st*mn*0.8;
end;
write('Стоимость разговора=',st:0:2);
readln
end.
