Опубликовано 4 года назад по предмету Информатика от Lolita100032

Массив состоит из 15 случайных элементов.получить массив,в котором элементы 1-ого массива имеют противоположный знак.В полученном массиве удвойте элементы,которые меньше -50

Ответ

Ответ дан George2410

var a: array[1..15] of Integer;
i: Integer;
Begin for i := 1 to 15 do a[i] := random(100)-random(100);
writeln(a);
for i := 1 to 15 do begin
a[i] := 0-a[i];
if a[i]<-50 then a[i] := a[i]*2;
end;
writeln(a);
End.
Ответ

Ответ дан ManulTheLiar

Program programma;
uses crt;
var i: integer;
    a:array [1..15] of integer;

begin clrscr;
      randomize;

      for i:=1 to 15 do
          a[i]:=random(200)-100;


      writeln('Массив:');

      for i:=1 to 15 do
      write(a[i]:5);


      for i:=1 to 15 do
      begin
      a[i]:=-a[i];
      if (a[i]<-50) then a[i]:=a[i]*2;
      end;

writeln;
writeln;
writeln('Новый массив:');
for i:=1 to 15 do
      write(a[i]:5);
READLN;
end.

Самые новые вопросы

Другие предметы - 3 года назад

Сочинение-рассуждение. прочитайте текст. есть у меня внучка. однажды она говорит: — у веры в субботу день рождения. она

Другие предметы - 3 года назад

Л.н. толстой. как боролся русский богатырь как сказал иван о своей силе? найдите ответ в тексте. запишите.

История - 3 года назад

Кто такой мильтиад и какова его роль в победе над персами?

История - 3 года назад

Какие примеры н. м. карамзин использует для разъяснения пользы новой системы престолонаследия? согласны ли вы с позицией

География - 3 года назад

Дополните схему. она поможет вам лучше усвоить содержание §1.: 1 что изучает география 2 с помощью чего 3 зачем изучают