Сформировать одномерный массив из 15 элементов Заменить все его минимальные элементы число 0. Вывести новый массив на экран
5-9 класс
|
program massiv;
var a:array[1..15] of integer;
i:integer;
begin
randomize;
for i:=1 to 15 do begin
a[i]:=random(50)-25;
if a[i]<0 then a[i]:=0; writeln('a[',i,']=',a[i]); end;
end.
Другие вопросы из категории
дороги, протяжённость которых (в километрах) приведена в таблице:
десятичную систему счисления как знаковую систему
Читайте также
10-му элементу присвоить значение 13. Вывести на экран монитора первоначальный и преобразованный массивы в строчку.
таких членов.
2.Дан массив из 10 элементов. Найти количество элементов с четными индексами.
3.Дан массив из 10 элементов. Найти наибольший элемент массива.
элемента исходного массива, в полученном массиве вывести элементы стоящие на нечетных местах. Напишите, пожалуйста программу на языке Pascal
Нулям.основы выводит массив на экран
значение предыдущего,при этом первому элементу должно присвоиться значение последнего элемента таблицы. Вывести на экран монитора первоначальный и преобразованный массивы в столбик(столбики должны быть расположены рядом).