Представлены результаты взвешиваний пяти арбузов.определите,какой из них самый легкий,если: 1 легче - id494424820200103 от KamAbi003 03.01.2020 09:28

Question

Информатика: Представлены результаты взвешиваний пяти арбузов.определите,какой из них самый легкий,если: 1 легче 3 4 легче 5 3 легче 4 5 легче 2 цифры в данном случае не обозначают вес,а обозначают нумерацию арбузов (относится к последнему взвешиванию дать решение,заранее )°

KamAbi003 · Accepted Answer

Буду по порядку добавлять.

1)

uses crt;
var n,s,i:integer;
begin
clrscr;
write('n=');
readln(n);
s:=0;
for i:=1 to n do
s:=s+sqr(i);
write('s=',s);
end.

2)

uses crt;
var a:array [1..100] of real;
n,i,p,o,l:integer;
begin
clrscr;
write('n=');
readln(n);
write('a[n]:');
for i:=1 to n do
begin
readln(a[n]);
if a[n]>0 then p:=p+1;
if a[n]<0 then o:=o+1;
if a[n]=0 then l:=l+1;
end;
writeln(l,p,o);
end.

3)

uses crt;
var a:array [1..100] of real; i,n:integer;
begin
clrscr;
write('n=');
readln(n);
write('a[n]:');
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if (a[i]=0) then writeln('YES')
else writeln('NO');
end.

MOGZ ответил