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

5 Контрольні питания 5.1 Що можна змінювати у тексті під час форматування символів?
5.2 Що можна змінювати у тексті під час форматування абзаців?
5.3 Як можна використати буфер обміну при редагуванні тексту?
5.4 Як вилучити речення із тексту?
5.5. Що таке абзац?
5.6. Як встановити міжрядковий інтервал? Які інтервали можна задавати у Word?
5.7. Як можна встановити абзацний відступ?​

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

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

{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 оценок)
Ответ:
potochnystanis
potochnystanis
10.12.2020
Var a1,a2,a3,a4,a5,max: integer;
begin
writeln ('Введите 5 чисел через пробел: ');
readln (a1,a2,a3,a4,a5); 
  begin
if (a1>a2) then max:= a1else max:=a2;
if (a2>a3) then max:=a2else max:=a3;
if (a3>a4) then max:=a3else max:=a4;
if (a4>a5) then max:=a4else max:=a5; 
  end;
writeln (max);
end. 
Аналогично с минимальным числом.
var a1,a2,a3,a4,a5,min: integer;
begin
writeln ('Введите 5 чисел через пробел: ');
readln (a1,a2,a3,a4,a5); 
  begin
if (a1<a2) then min:= a1else min:=a2;
if (a2<a3) then min:=a2else min:=a3;
if (a3<a4) then min:=a3else min:=a4;
if (a4<a5) then min:=a4else min:=a5; 
  end;
writeln (min);
end.  
Можно так же решить с массива, если нужно пишите.
4,4(2 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ