а) сформулируйте, что выполняет данная программа;
б) Напротив каждой строки программы или блока программы напишите, что он выполняет (блок можно выделить скобкой).
в) допишите строки программы, которые позволят найти количество элементов массива которые нечетные и делятся на 3 (в тексте программы поставьте *, там где должны стоять данные строки.
program p1;
var
f1,f2:text;
n,m,i,j,s,s1,s2:integer;
a:array[1..50,1..50] of integer;
begin
assign(f1,'input.txt');
assign(f2,'res.txt');
rewrite(f1);
write('Vvedite kolichestvo strok n=');
readln(n);
randomize;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(10);
write(f1,a[i,j]:2);
end;
writeln(f1,'');
end;
s:=0;s1:=0;
for i:=1 to n do
for j:=1 to n do
s:=s+a[i,j];
for i:=1 to n do s1:=s1+a[i,i];
s2:=a[1,1];
for i:=1 to n do
for j:=1 to n do
if a[i,j] append(f2);
writeln(f2,'сумма = ',s,' s1= ',s1,' s2= ',s2);
close(f1);
close(f2);
end.
lim = 11;
type
V = array[1..lim] of integer;
function FirstNegative(a: V; n: integer): integer;
var
i: integer;
begin
i := 0;
Result := 0;
repeat
i := i + 1;
if a[i] < 0 then Result := i
until (Result > 0) or (i > lim)
end;
procedure InpMass(var a: V; var n: integer; mName: string);
// Организует ввод массива
var
i, p: integer;
begin
writeln('Вводите элементы массива ' + mName + '; 7777 - конец ввода');
i := 0;
repeat
read(p);
i := i + 1;
if p <> 7777 then a[i] := p;
until (p = 7777) or (i > lim);
n := i - 1
end;
var
a, b: V;
m, n, p, q: integer;
begin
InpMass(a, m, 'A');
InpMass(b, n, 'B');
p := FirstNegative(a, m);
q := FirstNegative(b, n);
if p <= q then writeln('Номер первого отрицательного элемента в массива А: ', p)
else writeln('Номер первого отрицательного элемента в массива B: ', q)
end.
Тестовое решение:
Вводите элементы массива A; 7777 - конец ввода
37 14 -25 32 30 -29 38 27 7777
Вводите элементы массива B; 7777 - конец ввода
33 -36 23 -17 -3 -16 -33 33 -48 -39 30 7777
Номер первого отрицательного элемента в массива B: 2
Привет
Объяснение:
Качество нашей водопроводной воды, мягко говоря, далеко от международных стандартов. Согласитесь, пить неочищенную воду из-под крана — это экстремальное занятие, которое может обернуться серьезными проблемами со здоровьем. Поэтому покупка хорошего фильтра является первостепенной задачей.
Если вы не любите рисковать своим здоровьем, то наверняка задумываетесь над тем, как выбрать фильтры для воды. Разнообразие предложений на рынке заставит растеряться даже самого смелого.
Мы вам расставить все на свои места и определиться с выбором — в этой статье рассмотрены существующие разновидности фильтрующих при и их характеристики.
А также приведены основные критерии, влияющие на выбор наиболее подходящего фильтра, и рейтинг лучших производителей как отечественных, так и зарубежных. Для лучшего восприятия информации подобраны наглядные схемы и фотоматериалы, экспертные видеорекомендации по выбору.
Страницы фильтров: о чем вообще речь?
Фильтры — параметры, которые сузить список товаров, чтобы было проще выбрать нужный. Этот список в большинстве случаев можно встретить в левой колонке на страницах категорий.