Учусь в 10 классе, так что простую прогу напишите, чтоб было понятно. паскаль на уроках делали через for и if (i,j) написать программы: 1)дана матрица 1010, заданная дсч от -100 до 100 найти в матрице количество всех двухзначных чисел, у которых сумма цифр кратная 2 2)дана матрица 1010, заданная дсч от -100 до 100. в двумерном массиве целых чисел определить, сколько раз в нем встречается элемент со значением x.

194

286

Посмотреть ответы 2

Ответы на вопрос:

Ekaterina785

Информатика

4,8(89 оценок)

Var a: array[1..100, 1..100] of integer; i, j, m, n, count2, countx, x: integer; begin {ввод матрицы} n : = 10; writeln('данные матрицы: '); for i : = 1 to n do begin for j : = 1 to n do begin a[i, j] : = random(200) - 100; write(a[i, j]: 4, ' ') end; writeln; end; write('x = '); readln(x); count2 : = 0; countx : = 0; for i : = 1 to n do for j : = 1 to n do begin if a[i, j] = x then countx : = countx + 1; if (a[i, j] > = 10) and (a[i, j] < = 99) and ((a[i, j] div 10 + a[i, j] mod 10) mod 2 = 0) then count2 : = count2 + 1; end; writeln('countx = ', countx); writeln('count2 = ', count2); end.

arinaaaaaaaaa0

Информатика

4,5(44 оценок)

Uses crt; const n=10; var j: array [1..n] of real; sum: real; b: integer; begin sum: =0; for b: =1 to n do j[b]: =sin(b)/cos(b); for b: =1 to n do writeln(j[b]: 5: 3); for b: =2 to n-1 do if (j[b]> j[b+1]) and (j[b]> j[b-1]) then sum: =sum+j[b]; if j[1]> j[2] then sum: =sum+j[1]; if j[n]> j[n-1] then sum: =sum+j[n]; writeln; write('sum=',sum: 5: 3); end.