Предмет: Информатика,
автор: Asugon
1. составьте программу ввода элементов массива а[1..8] с клавиатуры и вывода на экран элементов с отрицательными значениями.
2. первое задание с листка, пункт в)
3.составьте программу, которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 10 и находит количество элементов с нечетными значениями. (упр. 2, пункт а))
4.составьте программу, которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 10 и находит сумму элементов с четными значениями и количество элементов с нечетными значениями(на картинке упр.3, пункт а) )
лучше смотрите по картинке, т.к. боюсь что где-то ошиблась....
Приложения:
![](https://files.topotvet.com/i/a53/a53ddb559fcc1e8adc4e1e32a77da3eb.jpg)
Ответы
Автор ответа:
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.
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.
Автор ответа:
0
Всё, кажется)
Автор ответа:
0
там же еще 4 и 3 упражнение, можете пожалуйста тоже решить
Автор ответа:
0
4 и 3 полностью?
Автор ответа:
0
Ничего) Удачи вам.
Похожие вопросы
Предмет: Русский язык,
автор: Аноним
Предмет: Химия,
автор: xx462897
Предмет: Математика,
автор: markel050984
Предмет: География,
автор: Sarhan98