Предмет: Информатика,
автор: vlad121
Паскаль. Дан массив. Напечатать:
1) Все элементы не превышающие число 100
2) Все четные элементы
3) Все элементы, являющиеся трехзначными числами
4) Третий, шестой и т.д элементы.
Пожалуйста, все программы напишите полностью. Не пишите по одной программе.
Ответы
Автор ответа:
0
const
n = 10;
var
a: array[0..10] of integer;
i, s: integer;
begin
//Заполнение массива сл. числами
for i := 1 to n do
begin
a[i] := random(201) - 100;
write(a[i]:4);
end;
writeln;
//1) Все элементы не превышающие число 100
writeln('Не больше 100 ');
for i := 1 to n do
if a[i] <= 100 then
write( a[i]:4);
writeln;
// 2) Все четные элементы
writeln('Кратные двум ');
for i := 1 to n do
if a[i] mod 2 = 0 then
write( a[i]:4);
writeln;
// 3) Все элементы, являющиеся трехзначными числами
writeln('Трехзначные ');
for i := 1 to n do
if (a[i] < -99) or (a[i] > 99) then
write(a[i]:4);
writeln;
// 4) Третий, шестой и т.д элементы.
i := 3;
writeln(' номера 3, 6, 9 и т.д.');
while i < n do
begin
write(a[i]:4);
i := i + 3;
end;
end.
n = 10;
var
a: array[0..10] of integer;
i, s: integer;
begin
//Заполнение массива сл. числами
for i := 1 to n do
begin
a[i] := random(201) - 100;
write(a[i]:4);
end;
writeln;
//1) Все элементы не превышающие число 100
writeln('Не больше 100 ');
for i := 1 to n do
if a[i] <= 100 then
write( a[i]:4);
writeln;
// 2) Все четные элементы
writeln('Кратные двум ');
for i := 1 to n do
if a[i] mod 2 = 0 then
write( a[i]:4);
writeln;
// 3) Все элементы, являющиеся трехзначными числами
writeln('Трехзначные ');
for i := 1 to n do
if (a[i] < -99) or (a[i] > 99) then
write(a[i]:4);
writeln;
// 4) Третий, шестой и т.д элементы.
i := 3;
writeln(' номера 3, 6, 9 и т.д.');
while i < n do
begin
write(a[i]:4);
i := i + 3;
end;
end.
Автор ответа:
0
Можете написать, где начинаются каждая из программ?ожете написать, где начинаются каждая из программ?
Автор ответа:
0
Добавил информацию в решение
Автор ответа:
0
Спасибо огромное
Похожие вопросы
Предмет: Математика,
автор: Аноним
Предмет: Физика,
автор: tilegenovakojsinaj
Предмет: Русский язык,
автор: octaviopro12345
Предмет: Биология,
автор: pomogaevv
Предмет: Математика,
автор: Аноним