Паскаль. дана квадратная матрица(случайные числа от -10 до 10) организовать вывод в виде матрицы.подсчитать количество чётных и нечётных элементов главной диагонали.
Ну блин for i:=1 to n do begin for j:=1 to n do write(a[i,j],' '); writeln; end; writeln; { я взял n это сколько строк и сколько столбиков, разберешься } { теперь выведем отрицательные числа } for i:=1 to n do for j:=1 to n do if a[i,j]<0 then writeln(a[i,j]); все :)
Дорога, соединяющая города i и j, даст единицу в две позиции - (i, j) и (j, i). Тогда общее количество единиц в матрице равно удвоенному числу дорог. Отсюда и простое решение - считать N^2 чисел, подсчитать количество единиц и поделить его на 2. Можно считать и сумму - от этого ничего не изменится.
#include <iostream> int main() { int n = 0, sum = 0, temp = 0; std :: cin >> n; for (int i = 0; i < n * n; i++) { std :: cin >> temp; sum += temp; } std :: cout << sum / 2; return 0; }
В задании не сказано, откуда берутся исходные данные, поэтому будем вводить их с клавиатуры. Сначала ведем общее количество данных (не факт, что данные за месяц снимались строго ежедневно), а затем сами данные. Это позволит заодно осуществить контроль ввода.
var n,s,t,i:integer; begin Write('Укажите количество данных: '); Read(n); Writeln('Теперь вводите данные'); s:=0; for i:=1 to n do begin Read(t); s:=s+t end; Writeln('Средняя температура за месяц составила ',s/n:0:1) end.
Пример решения
Укажите количество данных: 11 Теперь вводите данные 27 29 26 31 24 23 27 30 31 28 25 Средняя температура за месяц составила 27.4
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j],' ');
writeln;
end;
writeln;
{ я взял n это сколько строк и сколько столбиков, разберешься }
{ теперь выведем отрицательные числа }
for i:=1 to n do
for j:=1 to n do
if a[i,j]<0 then writeln(a[i,j]);
все :)