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

Нужно , не могу ни чего придумать, нужно сдавать я ни как не получается, . необходимо сделать в паскале в последовательности чисел p1, вычислить сумму первых четырех положительных чисел,нужно сделать через массив но не пойму как

👇
Ответ:
ulialepsha
ulialepsha
14.03.2020
Const
  n=20;
var
  p:array[1..n] of integer;
  i,k,s:integer;
begin
  Randomize;
  Writeln('Последовательность чисел');
  for i:=1 to n do
  begin
    p[i]:=Random(51)-25;
    Write(p[i],' ')
  end;
  Writeln;
  k:=0; s:=0; i:=1;
  repeat
    if p[i]>0 then begin s:=s+p[i]; Inc(k) end;
    Inc(i);
  until (k=4) or (i>n);
  Writeln('Сумма первых четырех положительных чисел равна ',s)
end.
   
Тестовое решение:
Последовательность чисел
-12 6 -21 5 -10 11 19 19 19 17 21 -4 -14 12 2 0 -20 10 17 -14
Сумма первых четырех положительных чисел равна 41
4,4(67 оценок)
Ответ:
AbnormalDel
AbnormalDel
14.03.2020
Держите
4,6(29 оценок)
Открыть все ответы
Ответ:
Sultikutan
Sultikutan
14.03.2020
1) Независимо от условия будет выполнен оператор присваивания.
a:=b
2) Условие ложное, значит будет выполнен оператор после else
write('b')
3) Условие истинное, значит будет выполнен оператор после then
write('a')
4) Функции операторов присваивания одинаковы, значит не зависят от условия (a + b - 14 = b - 14 + a)
a := a + b - 14
5) Оператор a := a практически ничего не изменяет, значит можно избавится от него
if a<b then a:=b
6) То же самое, что и в пункте 5, только нужно поменять истину на ложь
if not(a>b) then a:=b
7) Остаток деления на 2 не может быть равен трем, значит условие всегда ложно. Else нет, значит условный оператор можно смело откинуть
8) Остаток от деления на может быть равен или 0 или 1, значит в любом случае условие истинно. Первый условный оператор можно смело откинуть, но вложеннный остается!
if a<0 then a:=-a
9) Если a отрицательное, тогда b = a, то есть тоже отрицательно. Если a неотрицательное, тогда b = -a, то есть b отрицательное. Можно записать как модуль числа a, умноженный на -1
b := -abs(a)
4,6(89 оценок)
Ответ:
zhansaya77
zhansaya77
14.03.2020

ехнология создания электронных таблиц в MS Excel Цель: изучить инструменты ввода, редактирования, форматирования и обработки числовых данных в электронной таблице. Изучив данную тему, студент должен: иметь представление о; • технологиях обработки числовых данных в электронных таблицах; знать: • инструменты ввода, редактирования, форматирования и обработки числовых данных в электронной таблице; • принципы работы Мастера диаграмм; уметь: • форматировать ячейки таблицы; • выполнять простейшие вычисления и использовать элементарные функции в расчетах; • использовать относительную и абсолютную адресацию; • выполнять построение и форматирование диаграмм; • установить защиту рабочей книги; владеть навыками: • обработки информации в электронных таблицах; • построения различного вида диаграмм (графиков, гистограмм и др.) с мастера диаграмм Excel.

Объяснение:

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