Constn=10;m=10;
var
a:array[1..n,1..m]of integer;
i,j,s:integer;
begin
for i:=1 to n do
begin
 writeln; s:=0;
 for j:=1 to m do
begin
 a[i,j]:=random(50);
write(a[i,j]:4);
 if i mod 2<>0 then
s:=s+a[i,j];
end;
 if i mod 2<>0 then
writeln(s:6);
end;
 end.

0 0

4 года назад

В массиве А(20) случайных целых чисел (диапазон чисел [-10..30] ) определить количество нечетных чисел

byxoi

Var a: array [1..20] of integer; i, s: integer;
begin
randomize;
s := 0;
for i := 1 to 20 do
a[i] := random(40) - 10;
for i := 1 to 20 do
begin
write(a[i], ' ');
if (a[i] + 10) mod 2 = 1
then
s := s + 1;
end;
writeln();
writeln(s);
end.

0 0

3 года назад

Какую задачу решает данная программа . Что нужно изменить в программе , чтобы она решила задачу нахождения утроенного частного д

Анастасия12345678

Программа находит сумма квадратов двух чисел, чтоб уьроенного меняешь только строку c= и пишешь c=a*3+b*3

0 0

3 года назад

Найти сумму элементов массива B[10] Напишите программу на паскале!!!плиз....

Андрей8520

Program summa;
uses crt;
const N =10;
var B:array[1..N] of integer;
s,i : integer;
begin
s:=0;
for i:=1 to N do
begin
write( 'B[ ' ,i, ']= ' ); readln(B[i]);
s:=s+B[i];
end;
writeln( 's=' ,s);
end.

0 0

3 года назад