на каком языке нужна программа? пример на paskal: program zadacha; var massiv: array [1..15] of integer; i: byte; massiv2: array [1..15] of real; begin randomize; write('isxodnij massiv: '); for i: =1 to 15 do begin massiv: =random(41)-20; write(massiv,' '); end; writeln; writeln('massiv posle preobrazovanij: '); for i: =1 to 15 do begin if massiv=0 then massiv2: =massiv else if massiv mod 5 = 0 then massiv2: =massiv*2 else begin massiv2: =massiv; massiv2: =massiv2/2; end; write(massiv2: 0: 1,' '); end; readln; end.
Ответ дал: Гость
program xxx;
var i : integer;
a : array[1..15] of real; n : real; begin randomize; for i: =1 to 15 do a[i]: =random(20)-20;
writeln('исходный массив а: ');
for i: =1 to 15 do
write(a[i]);
n: =a[1];
a[1]: =a[15];
a[15]: =n;
writeln('полученный массив а: ');
for i: =1 to 15 do
write(a[i]);
readln
end.
Ответ дал: Гость
program dddd; uses crt; var a,b,c,i: integer; beginclrscr; c: =10; readln(a); while a < > 0 dobeginb: = a mod 10; if b < c then c: =b; a: = a div 10; end; writeln(c); readkey; end.
Популярные вопросы