составьте программу которая сформировывает массив из 14 случайных чисел, принадлежащих интервалу

Составьте программку которая формирует массив из 14 случайных чисел, принадлежащих промежутку [-20, 30], сменяет все чётные значения элементов массива квадратами их номеров

Задать свой вопрос
Ева Обыграткина
язык?
Ленька Ляски
индексация с 0?
Игорь Шляго
pascal ABC
1 ответ
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
// Индексация с "1", если номера даются, начиная с "0", поменять (i+1)*(i+1) на (i*i)


begin
var a:= ArrRandom(14,-20,30).Println.Select((v,i)-gt;v.IsEven?(i+1)*(i+1):v).Println;
end.

Пример: 
28 -12 -8 21 -16 11 3 21 11 -13 26 4 -19 23
1 4 9 21 25 11 3 21 11 -13 121 144 -19 23
Василиса Пастернакова
uses crt;var a:array[1..14] of integer; i,n:integer;beginrandomize;for i:=1 to 14 do begin a[i]:=random(51)-20; write(a[i],' '); end;writeln;for i:=1 to 14 do if a[i]=0 then begin n:=i; write(n,' '); end;end.
Александра Полханова
это является верным?
Степан Леменев
нет. У тебя идет условие if a[i] = 0. т.е. если очередной эл-т массива равен нулю, то ты выводишь это число, необходимо так if a[i] mod 2 = 0 then write(i*i, ' ') else write(a[i], ' ');
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт