Масив х состоит из 10 случайных элементов , от -5 до 15. сформировать массив и определить в каком массиве (х или у ) больше позетивных элементов
1-4 класс
|
Misspelling
var
i, posx, posy: integer;
x, y: array[1..10] of shortint;
begin
posx:=0;
posy:=0;
for i:=1 to 10 do
begin
x[i]:=random(20)-5;
y[i]:=random(20)-5;
if (x[i]>0) then
inc(posx);
if (y[i]>0) then
inc(posy);
end;
if (posx>posy) then
writeln('Array X has more positive numbers')
else if (posx<posy) then
writeln('Array Y has more positive numbers')
else
writeln('Both arrays have the same number of positive numbers')
end.
Другие вопросы из категории
Читайте также
своим индексам, увеличенным на один. Значение a описать в разделе констант. Выведите массив в строчку.
своим индексам, увеличенным на один. Значение a описать в разделе констант. Выведите массив в строчку.
пожаааа
По вертикали 1: Испонитель команд в программе ПервоЛого.
По горизонтали 2: Свойство алгоритма, означающее, что исполнение последовательность команд приводит к ожидаемому результату
По вертикали 3: Свойство алгоритма, означающее, что каждая команда имеет только одно значение.
По горизонтали 4: Объект, который может точно выполнить команды.
По горизонтали 5: Свойство, означающее, что алгоритм состоит из конечного числа инструкций.
По вертикали 6: Одно из действий алгоритма.
По горизонтали 7: Последовательность действий, обладающая определенными свойствами
По горизонтали 8: Графическая форма записи алгоритма
По горизонтали 9: Свойство алгоритма, означающее, что последовательность инструкций предназначена для решения целого класса задач.
По горизонтали 10: Свойство алгоритма, означающее, что последовательность действий является понятной исполнителю.............