4 года назад

Дан двумерный массив 6х4. Пощетать количество элементов во всем массиве которые кратны 3.

1 ответ:

Znaharb [7]4 года назад

0 0

Program Program1;
var
i,j,k:integer;
A: array [1..6,1..4] of integer;
begin
randomize;
for i:=1 to 6 do
for j:=1 to 4 do
a[i,j]:=random(100);
k:=0;
for i:=1 to 6 do
for j:=1 to 4 do
if a[i,j] mod 3 = 0 then inc(k);
writeln('Кратны трем ',k,' элем.');
end.

Читайте также

Автоматизировать начисление стипендии студентам (группа – 10 человек) по итогам летней сессии. Количество экзаменов – 5, баллы –

Lele4ka [24]

Лист защищен без пароля, чтобы случайно не повредить формулы.

0 0

4 года назад

имеется 5 монет среди которых одна фальшивая (леге других) . Придумайте способ нахождения фальшиой монеты за минимальное число в

ВН Аталия

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

Если первые две монеты тяжелее двух других, то взвешиваем две вторые по отдельности.

Если первые две монеты по весу одинаковы со вторыми двумя, то пятая монета фальшивая.

0 0

4 года назад

найдите все двузначные числа, которые содержат заданную цифру N, введенную с клавиатуры.помогите, пожалуйста! примерно представл

Ярослаф [7]

Program primer;
Var i,n,k,chislo:integer;
Begin
cls;
write(' skolko chisel budem vvodit ? '); readln(n);
write('chislo dlia poiska : '); read(k);
for i:=1 to n do
begin
readln(chislo);
if ((chislo mod 10 = k) or (chislo div 10 = k)) then
write('chislo ',chislo,' udov uslovie.. ')
else write('chislo ',chislo,' NE udov uslovie.. ');
writeln;
end;
readln;
End.

0 0

4 года назад

Как разделить фигуру на 4 одинаковые так чтобы в каждой была одна черная клетка. Не соображу никак

Виденеев Юрий Сер... [75]

Если одинаковые это имеется ввиду одинаковое количество сот, то решение будет таким: 1-й ряд- 2,3 и 4 фигуры, 3й ряд- 1,2 и 3 фигуры. Оставшиеся фигуры делим на две по одной черной и две белых

0 0

4 года назад

СРОЧНО 99б Задан массив F из 14 элементов случайным образом в диапазоне [-11..11] Найти количество элементов массива кратных 5

Mikky777 [7]

Program n1;
var F: array[1..14] of integer;
i,k: integer;
begin
randomize;
write('массив: ');
for i:=1 to 14 do begin
F[i]:=random(23)-11;
write(F[i],' ');
end;
writeln;
k:=0;
for i:=1 to 14 do if F[i] mod 5=0 then k:=k+1;
write('кол-во эл. крат. 5: ',k);
end.

0 0

4 года назад

Прочитать ещё 2 ответа