Есть ответ 👍

Какая фигура будет нарисована после выполнения алгоритма повторить 4 раза вперед 20 налево 10

205
308
Посмотреть ответы 3

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


Будет нарисован: прямоугольник

Program lab5_5; const n=10; type x=array[1..n] of integer; var a: x; i,k: integer; begin for i: =1 to n do begin read(a[i]);   {с вашего позволения я убрал "write (a[i]: 4)" в остальном программа получает от пользователя 10 чисел и обрабатывает их} end; writeln; k: =0; for i: =n downto 1 do if a[i]< 0 then begin k: =i end; if k> 0 then writeln ('индекс отрицательного элемента=',k: 1) else writeln ('в массиве нет отрицательных элементов'); readln; end. 

Популярно: Информатика