Надо написать программу на паскале 1. дан одномерный массив, заполненный по правилу: каждый элемент равен удвоенному порядковому номеру. заменить элементы, стояшие на четных местах на нули. распечатать полученный массив. 2. двумерный массив задан с клавиатуры. найти произведение элементов, выше главной диагонали.
thesketchyoup081qt
2
24.09.2019 13:10
0
Другие вопросы по теме Информатика
zdacieva07
10.04.2020 18:48
katemur6969
10.04.2020 18:42
hakimov676
10.04.2020 18:37
anyutra
09.12.2021 20:14
Nikita43242
01.10.2019 07:10
AidarSharafutdinov
01.10.2019 07:20
KristyLis
01.10.2019 07:20
Ева171282
01.10.2019 07:20
Популярные вопросы
- Напиши по памяти. уж тает снег, бегут ручьи, в окно повеяло засвищутся скоро...
2 - Сочинение олимпийские игры сочи 2014...
2 - Обчисліть і вкажіть масу двох молекул води...
3 - Установите соответствие между типами озёрных котловин...
2 - Человек ростом 180см видит фонарь в зеркале, лежащем на земле в 150 см от его...
1 - Мотоциклист проехал 160км со скорость 80 км/ч. какое расстояние может проехать...
1 - :стихотворение лебёдушка есенин)разделить на части и озаглавить каждую...
1 - Характеристика цыганка из повести детство максима горького....
1 - Построить д 7 с разрешениями и ! в си миноре...
1 - Составьте словосочетания глаголы+существительное в родительном падеже с предлогом...
1
первая часть
Program TZ5;
const
n=10;
var
a:array [1..n] of integer;
i,b:integer;
begin
for i:=1 to n do begin
a[i]:=i*2;
writeln(i,' ',a[i]);
end;
for i:=1 to n do
if (i mod 2)=0 then
a[i]:=0;
writeln('novuy massiv');
for i:=1 to n do
writeln(i,' ',a[i]);
readln;
end.