написать программу заполняющую целочисленный массив из 10 элементов чтобы с 1 по 5 были положительными а с 6 по 10 отрицательными
5-9 класс
|
Program Zadacha;
Var a: Array [1..10] of Integer;
i: Integer;
Begin
Randomize;
For i := 1 To 5 Do
a[i] := Random(10);
For i := 6 To 10 Do
a[i] := Random(10) - 10;
WriteLn('Результат:');
For i := 1 To 10 Do
WriteLn(a[i]);
ReadLn;
program task;
var i:longint;
a:array [0..1000] of longint;
begin
for i:=1 to 5 do
a[i]:=random(100);
for i:=6 to 10 do
a[i]:=random(100) - 100;
end.
Другие вопросы из категории
минимальным и какие не является ни минимальным, ни максимальным. Результат отображается на экране и файле date.out.
1)лизосомы
2)рибосомы
3) клеточный ценрт
4) хролопласты
Читайте также
таких членов.
2.Дан массив из 10 элементов. Найти количество элементов с четными индексами.
3.Дан массив из 10 элементов. Найти наибольший элемент массива.
массивах размерностью 8 и 10 элементов.
массивах размерностью 5 и 10 элементов
2). Дан массив из n элементов. Написать программу подсчитывающую произведение элементов массива.
2. Создать массив A из 10 элементов, заполненный случайным образом числами принадлежащих промежутку (0;20). Вывести полученный массив на экран. Вычислить количество элементов массива, значения которых не превышают среднее арифметическое значений его элементов.