М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
mihksy17
mihksy17
28.05.2021 19:33 •  Информатика

Нужно составить описание к программе program pr1; const n=5; var a: array[1..n] of integer; i,s1,s2: integer; begin randomize; s1: =0; s2: =0; for i: =1 to n do begin a[i]: =random(20)-8; writeln(a[i]: 4,' порядковый номер ',i); end; writeln; for i: =1 to n do begin if i mod 2< > 0 then s1: =s1+sqr(a[i])*a[i]; if i mod 2=0 then s2: =s2+sqr(a[i]); end; writeln('сумма 1=',s1); writeln('сумма 2=',s2); end.

👇
Ответ:
Marina5839458593
Marina5839458593
28.05.2021
Как-то так..........................

Нужно составить описание к программе program pr1; const n=5; var a: array[1..n] of integer; i,s1,s2:
4,7(14 оценок)
Открыть все ответы
Ответ:
boyko3333
boyko3333
28.05.2021

доделал. Pascal

Объяснение:

program basket;

uses crt;

var N,i,k:integer;

   rost: array of integer;

   fam, kom: array of string;

BEGIN

Clrscr;

writeln('Введите количество учеников');

readln(N);

setlength(fam, N);

setlength(rost, N);

setlength(kom, N);

writeln('Введите фамилии и рост учеников:');

for i:=0 to N-1 do

begin

write('fam[',i,']= ');

read(fam[i]);

write('rost[',i,']= ');

readln(rost[i]);

end;

k:=0;

for i:=0 to N-1 do

if rost[i]>=170 then begin

kom[k]:=fam[i];

k:=k+1;

end;

if k=0 then

writeln('кандидатов нет')

else

writeln('Список претендентов в сборную школы:');

for i:=0 to k-1 do

writeln(kom[i]);

readln;

end.

4,6(96 оценок)
Ответ:
lehakharitonov
lehakharitonov
28.05.2021

Pascal

program basket;

uses crt;

var

 fam, kom : array of string;

 rost : array of double;

 N,i:integer;

BEGIN

 Clrscr;

 writeln('Введите количество учеников');

 readln(N);

 setlength(fam, n);

 setlength(rost, n);

 writeln('Введите фамилию и рост ученика');

 for i:=1 to N do begin

   write('fam[',i,']= ');

   read(fam[i-1]);

   write('rost[',i,']= ');

   readln(rost[i-1]);

 end;

 for i:=1 to N do

   if rost[i-1]>=170 then begin

     setlength(kom, length(kom)+1);

     kom[length(kom)-1]:=fam[i-1];

   end;

 if length(kom)=0 then

   writeln('кандидатов нет')

 else

   writeln('Список претендентов в сборную школы');

 Writeln;

 for i:=1 to length(kom) do

   writeln(kom[i-1]);

 readln

end.


1. Сделайте эту программу работо . program basket; uses crt; var N,i,k:integer; BEGIN Clrscr; writel
4,8(33 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ