Нарисовать картинку машины через процедуры подпрограммы в pascal

100

437

Посмотреть ответы 2

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

popovaviktoriy3

Информатика

4,5(85 оценок)

Uses graphabc; begin // кузов rectangle(340,220, 540, 300); // багажник rectangle(140,140, 340, 300); floodfill(220, 220, clbrown); // закразка кузова floodfill(460, 260, clgray); // закразка багажника // дверь в кабину rectangle(220,180, 300, 260); circle(280, 220, 10); // ручка двери // фара circle(140, 260, 10); // первое колесо circle(220, 340, 40); // второе колесо. circle(420, 340, 40); // дорога line(60,380, 560, 380); end.

tamilazhakupova

Информатика

4,5(31 оценок)

Var a: array[1..10]of integer; i, k, n: integer; begin writeln('исходный массив: '); randomize; for i : = 1 to 10 do begin a[i] : = random(51) - 25; write(a[i], ' '); end; writeln; n : = 0; k : = 0; for i : = 10 downto 1 do if a[i] > 0 then begin k : = k + 1; if k = 2 then n : = i; end; if k = 0 then writeln('в массиве нет положительных элементов! ') else writeln('предпоследний положительный элемент: a[', n, '] = ', a[n]); readln; end.