Автоматизировать начисление стипендии студентам (группа – 10 человек) по итогам летней сессии. количество - id368704320210911 от ася704 11.09.2021 22:46

Question

Информатика: Автоматизировать начисление стипендии студентам (группа – 10 человек) по итогам летней сессии. количество экзаменов – 5, – от 2,5 до 5. стипендия начисляется в размере мрот (600 если все экза-мены сданы с оценкой не ниже 3. при сдаче всех экзаменов с оценками не ниже 4 выплачивается надбавка 20%, не ниже 5 – надбавка 50%.

ася704 · Accepted Answer

1)var a:array[1..3,1..3] of integer; b:array[1..3,1..3] of integer; c:array[1..3,1..3] of integer; i,j:integer; begin; writeln( A array: ); for i:=1 to 3 do begin; writeln;   for j:=1 to 3 do    begin;     a[i,j]:=random(-10,10);     write(a[i,j]:4);    end; end; writeln; writeln( B array: ); for i:=1 to 3 do begin; writeln;   for j:=1 to 3 do    begin;     b[i,j]:=random(-10,10);     write(b[i,j]:4);    end; end; writeln; writeln( C array: ); for i:=1 to 3 do begin; writeln;   for j:=1 to 3 do...

MOGZ ответил