Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 18.04.2015 10:31
- Информатика
- remove_red_eye 15581
- thumb_up 28
Ответы и объяснения 2
uses crt; const n=10; var a: array [1..n] of integer; i: integer; begin writeln('Дан массив'); for i:=1 to n do begin a[i]:=random(19)-9; write(a[i]:5); end; writeln; writeln('Преобразованный массив'); for i:=1 to n do begin if a[i]<0 then a[i]:=a[i]*i*i; write(a[i]:5); end; end.
- 19.04.2015 09:14
- thumb_up 21
Задача №4
var
n, i, mn, mx:integer;
a:array [1..10] of integer;
begin
writeln('Vvedite n (<=10):');
readln(n);
writeln('Vvedite massiv');
for i:=1 to n do
readln(a[i]);
writeln('Ishodnii massiv');
for i:=1 to n do
write(a[i],' ');
writeln();
for i:=1 to n do
if a[i]<0 then a[i]:=a[i]*sqr(i);
writeln('Massiv posle obrabotki');
for i:=1 to n do
write(a[i],' ');
writeln();
readln();
end.
- 20.04.2015 13:43
- thumb_up 31
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.