Розробити власний модуль з застосуванням класу для обчислення площі круга радіуса R, з якого вирізали круг меншого радіуса r. Значення радіусів вводяться з клавіатури.

204

497

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

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

nastasiia1989

Информатика

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

program mass;

uses crt;

var d:array[1..7] of integer; i:integer;

begin clrscr;

randomize;

write('Исходный массив: ');

for i:=1 to 7 do begin

d[i]:= random(9)+5;

write(d[i],' ');

end;

Writeln;

write('Чётные элементы исходного массива: ') ;

for i:=1 to 7 do

if d[i] mod 2 = 0 then write(d[i],' ');

readln;

end.

150 000+ пользователей

Оформить подписку