Регистрация
matyusha47
Есть ответ 👍

сделать диалог на тему 9 класнык и його ровеснециею яка мае намир узяти участь у юнацькому конкурси чаривности й талантлив "Мис Найстильниша Украинка" 5 с той стороны и стой предложений

265
475
Посмотреть ответы 1

Ответы на вопрос:

Arina200531
Arina200531
4,4(49 оценок)
Var  a: array[1..10] of integer;   i,c: integer; begin  for i: = 1 to 10 do  begin      write('введите ',i,' - ый элемент массива ');       readln(a[i]);     end;   write('индексы элементов, больших 5 - (');   for i: = 1 to 10 do  if a[i]> 5 then begin write(i,' '); c: =1; end;   if c=0 then write('таких нет)') else  write(')'); end. 

Популярно: Другие предметы