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

решить , хотя бы первые 3 задания НУЖНО.


решить , хотя бы первые 3 задания НУЖНО.

👇
Открыть все ответы
Ответ:
Tima411
Tima411
18.04.2021

Программа на языке Паскаль:

{Free Pascal Compiler version 3.0.4+dfsg-23 [2019/11/25] for x86_64}

{Copyright (c) 1993-2017 by Florian Klaempfl and others}

{Target OS: Linux for x86-64}

program test;

var

X : array [1..5] of integer; {массив из 5 элементов}

i : integer; {Счётчик цикла}

d : integer; {Произведение положительных}

L : integer; {Количество отрицательных и нулей}

begin

{Ввести таб Х[1:5]}

write('Введите 5 чисел в массив Х: ');

for i := 1 to 5 do read(X[i]);

d := 1;

L := 0;

for i := 1 to 5 do

if (x[i] > 0) then

d := d * x[i]

else

L := L + 1;

{Вывести d, L}

writeln('Произведение d = ', d);

writeln('Количество отрицательных - ', L)

end.


Знайти добуток додатніх елементів масиву і кількість недодатніх елементів. Написати програму за зада
4,6(33 оценок)
Ответ:
westt
westt
18.04.2021
Program egor_sasha; var num_eg, num_sash,pri,pri1: real; var mes_eg,mes_sash: real; beginwriteln('numer egora'); readln(num_eg); writeln('numer sashi'); readln(num_sash); writeln('mesto egora (verkh=1,vniz=0)'); readln(mes_eg); writeln('mesto sashi (verkh=1,vniz=0)'); readln(mes_sash); pri: =num_sash+1; pri1: =num_eg+1; if num_eg=pri then    writeln('yes')  else writeln('no'); if num_sash=pri1 then    writeln('yes')  else writeln('no'); if mes_eg=1 then    writeln('egor-high')else  writeln('egor-low'); if mes_sash=1 then    writeln('sasha-high')else  writeln('sasha-low'); end.
4,5(40 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ