Предмет: Информатика, автор: yarfer

Поможіть будь ласка!!!

Приложения:

Ответы

Автор ответа: mariomariha1701

0

Вот, чем могла, тем помогла

Приложения:

Предыдущий вопрос

Следующий вопрос

Похожие вопросы

Предмет: Информатика, автор: fg532egd

1. Сделайте эту программу работоспособной.
program basket;
uses crt;
var
N,i,k:integer;
BEGIN
Clrscr;
writeln('Введите количество учеников');
readln(N);
writeln('Введите фамилию и рост ученика');
for i:=1 to N do
begin
write('fam[',i,']= ');
read(fam[i]);
write('rost[',i,']= ');
readln(rost[i]);
end;
k:=0;
for i:=1 to N do
if rost[i]>=170 then begin
k:=k+1;
kom[k]:=fam[i];
end;
if k=0 then
writeln('кандидатов нет')
else
writeln('Список претендентов в сборную школы');
Writeln;
for i:=1 to k do
writeln(kom[i]);
readln
end.

5 лет назад

Предмет: Алгебра, автор: fomccvgdfgfff

Решите уравнение помогите срочно

5 лет назад

Предмет: Русский язык, автор: alikrum2004

помогите мне с русским даю 15 баллов

5 лет назад

Предмет: Химия, автор: Аноним

Помогите пожалуйста !!! ...

9 лет назад

Предмет: Алгебра, автор: aydan2002

Выразите у через х в уравнении х+2у=4

9 лет назад