Лінивий так-телевізор,ні-ДЗ
<span> "бот" =8,"вол"=9 "болт"=11,"лото"=12</span>
Program obnulenie;
var a:array[1..100,1..100] of integer;
i,j,n:integer;
begin
writeln('Введите размер квадратной матрицы:');
readln(n);
writeln('Введите матрицу:');
for i:=1 to n do
for j:=1 to n do
begin
read(a[i,j]);
if j>i then a[i,j]:=0;
end;
writeln('Измененная матрица:');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j],' ');
writeln;
end;
<span>end.</span>
#include <iostream>
using namespace std;
void func ()
{
<span> float a,b;</span><span>
cout << "a="; </span><span>
cin >> a;</span><span>
cout << "b=";
</span><span> cin >> b;
</span><span> cout << a*b << endl;
</span>}
int main ()
{
<span> func ();</span><span>
system ("PAUSE");</span><span>
return 0;
</span><span>}</span>
А мне еще более лениво, поэтому решение на <u><em>PascalABC.Net 3.2</em></u>
Зачем напрягаться, если автор жадный и задачу за 5 баллов ставит?
begin
var x:=ArrRandom(7,-20,20); x.Println;
x.Select((e,i)->(e,i)).Where(a->(a[0] mod 2<>0) and (a[1] mod 2=0)).
Select(a->a[1]+1).Println
end.
Пример
20 9 13 -9 7 -8 -6
3 5