Задано дані про середню успішність кожного з п’яти студентів коледжу. Скласти програму, яка визначає - id1767102620200626 от tanyaraeva2017 26.06.2020 06:55

Question

Информатика: Задано дані про середню успішність кожного з п’яти студентів коледжу. Скласти програму, яка визначає кому нараховано стипендію, враховуючи, що стипендія нараховується якщо середня успішність більша за 4.65. Вивести прізвища студентів, яким нарахована стипендія. это ​

tanyaraeva2017 · Accepted Answer

Задание 5

program SumSeq;

{$APPTYPE CONSOLE}

uses

SysUtils;

//const m:Integer ;

var

i, j, m, s:Integer;

n: array of Integer;

begin

s:=0;

Writeln(m);

Writeln('vvedite m');

Readln(m);

SetLength(n,m);

for i:=0 to m do

begin

j:=Random(10);

if j<5

then n[i]:=-1*j

else n[i]:=j;

write(n[i], ' ')

end;

Writeln;

Writeln('To continue push >>ENTER');

Readln;

for i:=0 to m do

begin

if n[i]<0

then s:=s+sqr(n[i])

end;

writeln('s=',s);

readln

{ TODO -oUser -cConsole Main : Insert code here }

end.

MOGZ ответил