nikamalisch
12.03.2023 00:22

могу добавить если надо. Задание: составить алгоритм и блок-схему.

1. Собрать сумку в школу на понедельник (учесть изменения в расписании, необходимости брать с собой учебник и тетрадь)

2. Нарисовать картину (учесть наличие всех цветов, кистей и холста)

3. Сварить макароны (учесть наличие макарон, воды, газа/электричества)

4. Собрать букет (учесть наличие нужных цветов, упаковочной бумаги и ленты)

5. Протереть зеркало (учесть необходимость протереть зеркало (грязное ли зеркало?), наличие моющих средств и бумажных салфеток)

6. Выполнить квест в игре (учесть наличие времени для выполнения (есть ли время, чтобы сделать квест?), наличие квеста (есть ли квест?), учесть ограничения для выполнения (например, достигнут ли уровень, открыта ли нужная локация)).

7. Опубликовать фотографию (учесть, нужна ли подпись для фотографии, геолокация и хэштеги).

8. Найти рецепт пирога (учесть аллергии и наличие необходимых продуктов)

9. Нарисовать блоксхему (учесть, есть ли в алгоритме условия и вводные данные)

10. Выбрать одежду для прогулки (учесть, холодно ли на улице, есть ли ветер и льет ли дождь)

11. Научиться делать оригами (учесть, есть ли бумага, есть ли видео-урок)

12. Собрать подарок на день рождения (учесть, нужно ли сладкое, есть ли упаковочная бумага и лента)

13. Выбрать видео про путешествия на YouTube (учесть, подходит ли видео, популярное ли видео, положительные ли комментарии)

14. Пригласить друга на прогулку (учесть, хотите ли Вы на прогулку, есть ли у Вас время на прогулку и хочет ли друг на прогулку)

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Danilenok
18.08.2021 09:28
// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
begin
  var a:=ArrRandom(100,-10,10);
  a.Println;
  Writeln(a.Where(x->x>0).Count,' положительных, ',
    a.Where(x->x<0).Count,' отрицательных')
end.

Тестовое решение:
4 -6 0 8 2 -2 -1 -8 -6 8 -3 7 4 -7 -5 9 0 -3 -7 1 0 -4 6 3 8 -10 4 9 3 5 8 5 5 8 10 4 -8 3 8 8 -9 2 7 -8 -7 -5 2 -9 0 9 -7 7 -2 -6 7 -2 -1 7 -10 2 4 1 -1 0 10 3 -8 6 -6 2 6 7 -1 -4 -1 8 0 3 0 2 -2 2 -1 5 1 -9 -4 1 -9 1 -6 -5 3 -4 -7 1 -7 -3 -7 1
51 положительных, 42 отрицательных
0,0(0 оценок)
Ответ:
braaauberg
17.11.2020 22:06
Const maxn=15;
var a: array[1..maxn] of integer;
    skv,prod,gr,i: integer;
begin
  writeln('введите ',maxn,' чисел');
  skv:=0;  prod:=1;
  gr:=0;
  for i:=1 to maxn do
  begin
    write(i,': ');  readln(a[i]);
    if a[i]<0 then skv:=skv+a[i]*a[i];
    if (a[i] mod 2 = 0) and (i mod 2 = 0) then
       prod:=prod*a[i];
    if abs(a[i])>100 then gr:=gr+1;
  end;
  writeln('сумма квадратов отрицательных:  ',skv);
  writeln('произведение четных на четных местах:  ',prod);
  writeln('больше 100 по модулю:  ',gr);
end.

введите 15 чисел
1: 151
2: -231
3: 104
4: 19
5: 36
6: -112
7: 5
8: 8
9: 11
10: 13
11: 45
12: 5
13: 6
14: 17
15: 19
сумма квадратов отрицательных:  65905
произведение четных на четных местах:  -896
больше 100 по модулю:  4
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота