Pascal abc
дан одномерный массив вещественных чисел x(n), составить программу,
которая бы все элементы массива х, начиная с первого положительного
элемента, разделила на два, остальные элементы увеличила на два. элементы
массива ввести с клавиатуры.(змск)

178

333

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

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

pzuzuk

Информатика

4,8(93 оценок)

ответ:

uses crt;

const nmax=100;

type mas=array[1..nmax] of real;

var n: byte;

procedure vvod(var a: mas; c: char);

var i: byte;

begin

writeln('исходный массив ',c);

for i: =1 to n do

begin

a[i]: =-5+15*random;

write(a[i]: 5: 1)

end;

writeln

end;

procedure poloz(var a: mas; k: real; c: char);

var i: byte;

begin

writeln('измененный массив ',c);

for i: =1 to n do

begin

if a[i]> 0 then a[i]: =a[i]+k;

write(a[i]: 5: 1)

end;

writeln

end;

var a,b: mas;

k: real;

begin

randomize;

repeat

write('размер массивов от 2 до ',nmax,' n=');

readln(n);

until n in [2..nmax];

write('введите число для изменения положительных k=');

readln(k);

vvod(a,'a');

poloz(a,-k,'a');

vvod(b,'b');

poloz(b,k,'b');

end.

fantomfantoms

Информатика

4,4(44 оценок)

Program man; uses graph; var gd, gm: integer; begin gd: =detect; initgraph(gd, gm, ' '); setfillstyle(1, green); bar(0, 350, 639, 479); setfillstyle(1, lightblue); floodfill(0, 0, green); setcolor(red); circle(320, 200, 19); setlinestyle(0, 0, 3); rectangle(390, 220, 340, 300); line(320, 300, 300, 350); line(320, 300, 340, 350); line(300, 240, 250, 250); line(340, 240, 390, 250); setfillstyle(1, red); floodfill(320, 200, red); floodfill(320, 230, red); setcolor(yellow); circle(315, 190, 2); circle(325, 190, 2); line(315, 210, 325, 210); readln; closegraph; end.