const
n=10;
var
a:array [1..n] of integer;
i,k,sum:integer;
begin
k:=0;
sum:=0;
for i:=1 to n do
begin
write ('A[',i,'] = ');
readln(a[i]);
if (i mod 2 = 0) and (a[i] mod 2 <> 0) then
begin
k:=k+1;
sum:=sum+a[i];
end;
end;
writeln ('Summa: ',sum);
writeln ('Kol-vo: ',k);
readln;
end.
const
N=5;
M=3;
type matr=array [1..N,1..M] of integer;
var
a:matr;
t,k:integer;
procedure Random(var b:matr; var l,p:integer);
var i,j:integer;
begin
for i:=1 to N do
begin
for j:=1 to M do
begin
a[i,j]:=random(l)+1;
write(a[i,j]:4);
end;
writeln;
end;
writeln;
for j:=1 to M do
write(a[p,j]:4);
end;
begin
write('Введите длину отрезка(t): '); readln(t);
write('Введите интересующую строку(k): ');readln(k);
Random(a,t,k);
writeln;
end.
В задании не требуется выводить всю матрицу, но для проверки оставил. Убери, если критично, но правильность работы программы не проверить будет
Объяснение:
Компьютерный ви́рус — вид вредоносного программного обеспечения внедряться в код других программ, системные области памяти, загрузочные секторы, и распространять свои копии по разнообразным каналам связи.
Основная цель вируса — его распространение. Кроме того, часто его сопутствующей функцией является нарушение работы программно-аппаратных комплексов — удаление файлов и даже удаление операционной системы.
В обиходе «вирусами» называют всё вредоносное ПО, хотя на самом деле это лишь один его вид.
program a;
uses crt;
var i,n, sum,qty:integer;
a:array [1..10] of integer;
begin
clrscr;
n:=10;
sum:=0;
qty:=0;
for i:=1 to n do begin
readln ('a[',i.']=',a[i]);
end;
for i:=1 to n do begin
if i mod 2 = 0 then
if a[i] mod 2 <>0 then
sum:=sum+a[i];
inc(qty);
endif;
endif;
end;
writeln('Сумма составила ', sum);
writeln('Количество составило ',qty);
readkey;
end.