1. составьте программку ввода частей массива а[1..8] с клавиатуры и вывода
1. составьте программку ввода частей массива а[1..8] с клавиатуры и вывода на экран частей с отрицательными значениями.
2. 1-ое задание с листка, пункт в)
3.составьте программку, которая наполняет массив а [1..10] случайными целыми числами в спектре от 1 до 10 и обретает количество элементов с нечетными значениями. (упр. 2, пункт а))
4.составьте программку, которая наполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 10 и находит сумму частей с четными значениями и количество частей с нечетными значениями(на картинке упр.3, пункт а) )
лучше смотрите по картинке, т.к. побаиваюсь что где-то ошиблась....
Задать свой вопрос
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 lt;gt; 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 lt;gt; 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.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Физика.
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.