Предмет: Информатика, автор: Asugon

1. составьте программу ввода элементов массива а[1..8] с клавиатуры и вывода на экран элементов с отрицательными значениями.
2. первое задание с листка, пункт в)
3.составьте программу, которая заполняет массив а [1..10]  случайными целыми числами в диапазоне от 1 до 10 и находит количество элементов с нечетными значениями. (упр. 2, пункт а))
4.составьте программу, которая заполняет массив а [1..10]  случайными целыми числами в диапазоне от 1 до 10 и находит сумму элементов с четными значениями и количество элементов с нечетными значениями(на картинке упр.3, пункт а) )
лучше смотрите по картинке, т.к. боюсь что где-то ошиблась....

Приложения:

Ответы

Автор ответа: Royal21
0
{1}
var
  a: array [1..8] of integer;
  i: integer;
begin
  writeln('Введите 8 элементов массива: ');
  for i := 1 to 8 do read(a[i]);
  for i := 1 to 8 do write(-a[i]:4);
end.

{1.в}
var
  a: array [1..6] of integer;
  x, i: integer;
begin
  x := 3;
  for i := 1 to 6 do
  begin
    a[i] := x;
    x := x + 3;
  end;
  for i := 1 to 6 do write(a[i]:4);
end.

{2.а}
var
  a: array [1..10] of integer;
  x, i: integer;
begin
  randomize;
  writeln('Массив: ');
  for i := 1 to 10 do
  begin
    a[i] := random(11);
    if a[i] mod 2 <> 0 then x := x + 1;
  end;
  for i := 1 to 10 do write(a[i]:4);
  writeln;
  writeln('Кол-во элементов с нечетными значениями: ', x);
end.

{3.а}
var
  a: array [1..10] of integer;
  sum, x, i: integer;
begin
  randomize;
  writeln('Массив: ');
  for i := 1 to 10 do
  begin
    a[i] := random(11);
    if a[i] mod 2 <> 0 then x := x + 1
    else sum := sum + a[i];
  end;
  for i := 1 to 10 do write(a[i]:4);
  writeln;
  writeln('Кол-во элементов с нечетными значениями: ', x);
  writeln('Сумма элементов с четными значениями: ', sum);
end.
Автор ответа: Royal21
0
Всё, кажется)
Автор ответа: Asugon
0
там же еще 4 и 3 упражнение, можете пожалуйста тоже решить
Автор ответа: Royal21
0
4 и 3 полностью?
Автор ответа: Royal21
0
Ничего) Удачи вам.
Похожие вопросы
Предмет: Русский язык, автор: Аноним
4) Найдите в тексте слова с непроизносимыми согласными, подберите к ним проверочные слова и запишите парами. Непроизносимые согласные подчеркните карандашом.


Например: месТную команду –месТо
вот текст



10 июля

К нам в гости из Алматы приехал мой дедушка. Мы ходили с ним на футбол, болели за местную команду «Бурабай». Дедушка прекрасно разбирается в игре, знает известных спортсменов. Он рассказал, как в детстве играл до позднего вечера с ровесниками в футбол. У деда есть одноклассники, с которыми он дружит 47 лет. Вот это дружба!

Сегодня мы играли в футбол, а дедушка был судьёй. Разыгрались и забыли обо всём! Мамы звали нас домой. Мне не хотелось расставаться с друзьями. Но, услышав ласковый мамин голос: «Сынок, мы тебя ждём», с радостью побежал. Я оглянулся и увидел, что олин мальчик остался во дворе. Он смотрел на окна своей квартиры. Его никто не звал. Я подумал: «Почему он не спешит домой? Разве там может быть скучно или плохо?»

Дома вкусно пахло маминым пирогом. Меня спросили, как прошёл день. Никто не ругал за испачканные джинсы. В нашей семье все понимают друг друга. Дедушка сказал, что возвращение под родной шанырак – огромное счастье. Думаю, он прав! И вдруг я вспомнил про мальчика во дворе…
Помогите пжжж​