М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
nikgali
nikgali
18.07.2022 01:41 •  Информатика

Напишите программу которая выводит на экран (паскаль) а)положительные числа б)отрицательные в)четные г)нечетные на заметку(числа произвольные или любые (integer)) исправлено: даёться массив из n чисел вывести на экран количесвто чётных и нечётных,количество положительных и отрицательных элементов массивов

👇
Ответ:
zumi453
zumi453
18.07.2022
Числа вводятся пользователем. Прикрепил скрин работы программы, вот сама программа:

var a:array[1..999]of integer;
i,n:integer;
begin
write ('Введите кол-во чисел: ');
readln (n);
for i:=1 to n do
begin
write ('Введите ',i,' число: ');
readln (a[i]);
end;
WRITELN;
write ('Числа введённые пользователем: ');
for i:=1 to n do
write (a[i],' ');
WRITELN;
WRITELN;
write ('Положительные: ');
for i:=1 to n do
begin
if a[i]>0 then write (a[i],' ');
end;
WRITELN;
write ('Отрицательные: ');
for i:=1 to n do
begin
if a[i]<0 then write (a[i],' ');
end;
WRITELN;
write ('Чётные: ');
for i:=1 to n do
begin
if a[i] mod 2 = 0 then write (a[i],' ');
end;
WRITELN;
write ('Нечётные: ');
for i:=1 to n do
begin
if a[i] mod 2 <> 0 then write (a[i],' ');
end;
end.

Напишите программу которая выводит на экран (паскаль) а)положительные числа б)отрицательные в)четные
4,7(13 оценок)
Ответ:
Pawel10hor
Pawel10hor
18.07.2022
Const
  nn = 100; { максимальное количество элементов }
var
  a:array[1..nn] of integer;
  i,n,k,kn,kp,ko,ke: integer;
begin
  Writeln('Введите количество элементов в массиве (n<=100): ');
  Readln(n);
  Writeln('Введите элементы массива');
  kn:=0; kp:=0; ko:=0; ke:=0;
  for i := 1 to n do
  begin
    Read(k); a[i]:=k;
    if k>0 then Inc(kp)
    else if k<0 then Inc(kn);
    if (k mod 2)=0 then Inc(ke) else Inc(ko)
  end;
  Writeln('Положительных элементов ',kp,', отрицательных ',kn);
  Writeln('четных элементов ',ke,', нечетных ',ko);
end.

Тестовое решение:
Введите количество элементов в массиве (n<=100):
13
Введите элементы массива
16 -5 8 21 0 -5 13 32 7 11 -4 2 -5
Положительных элементов 8, отрицательных 4
четных элементов 6, нечетных 7
4,8(9 оценок)
Открыть все ответы
Ответ:

Ниже

Объяснение:

1.

использовать Робот

алг

нач

вправо

вверх

влево

нц пока слева свободно и снизу стена

закрасить

влево

кц

кон

2.

использовать Робот

алг

нач

нц пока снизу стена и справа свободно

закрасить

вправо

закрасить

кц

нц пока снизу свободно

нц пока снизу свободно и слева стена  

закрасить  

вниз

кц

нц пока снизу свободно и слева свободно  

вниз

кц

кц

кон

3.

использовать Робот

алг

нач

вверх

влево

вниз

нц пока снизу свободно

нц пока справа стена и снизу свободно  

закрасить

вниз

кц

нц пока справа свободно и снизу свободно

вниз

кц

кц

нц пока слева свободно

нц пока слева свободно и снизу стена

закрасить

влево

кц

нц пока снизу свободно и слева свободно

влево

кц

кц

кон


Построить Робота в программе Кумир (3робота)
Построить Робота в программе Кумир (3робота)
Построить Робота в программе Кумир (3робота)
4,6(34 оценок)
Ответ:
Леша119
Леша119
18.07.2022

очищения кожи:подойдет инструмент Spot Healing Brush Tool (J) (Точечная восстанавливающая кисть) панели инструментов и выберите штамп (S), непрозрачность кисти понизьте до 30%. Этим инструментом уберите морщины под глазами. Для придания коже гладкости воспользуйтесь командой Color Range (Цветовой диапазон). Для ее открытия зайдите в меню Select > Color Range (Выделение - Цветовой диапазон). После этого нажмите в любом месте на коже и в окне цветового диапазона понизьте значение Fuzziness (Разброс) После того, как все участки, необходимые для разглаживания, будут выделены, нужно скопировать их на новый слой Ctrl + J. К этому слою примените фильтр Gaussian Blur (Размытие по Гауссу) со значением радиуса 2 пикселя.

4,8(56 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ