Привет, мне нужна помощь с домашней работой. Мое домашнее задание во вложениях.
10-11 класс
|
катя89562
23 марта 2015 г., 13:19:26 (9 лет назад)
Yzhosan
23 марта 2015 г., 15:33:21 (9 лет назад)
const n=10;
var a:array[1..n,1..n] of integer; i,j,w:integer;
begin
for i:=1 to n do
for j:=1 to n do begin
a[i,j]:=0;
a[j,i]:=0;
end;
for i:=1 to 5 do
for j:=1 to 4 do begin
a[i,j]:=a[i,j]+5;
if(a[i,j]=10) then w:=w+1;
a[j,i]:=a[j,i]+5;
if(a[j,i]=10) then w:=w+1;
end;
writeln(w, ' элементов массива равны 10');
end.
Ответить
Другие вопросы из категории
1.составить программу которая в введенном тексте удаляет пробелы 2.составить программу которая в ведённом тексте после пробелов ставит две буквы
к
3.составить прогу которая находит индекс последней запятой в введенном тексте
Читайте также
Вы находитесь на странице вопроса "Привет, мне нужна помощь с домашней работой. Мое домашнее задание во вложениях.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.