Const n = 6; var a: array [1..n, 1..n] of integer; s, i, j, k: integer; begin writeln('Введите элементы массива :'); for i := 1 to n do begin for j := 1 to n do begin readln(a[i, j]); end; end; for i := 1 to n do begin for j := 1 to n do begin s := s + a[i, j]; end; end; writeln('Сумма элементов = ', s); writeln('Номера строк :', n); readln; end.
Const n=20; var i,k,m: integer; a: array[1..n] of integer; begin randomize; writeln('исходный массив:'); for i:=1 to n do begin a[i]:=random(-10,10); write(a[i],' '); end; writeln; k:=0; m:=0; for i:=n downto 1 do begin if a[i]>=0 then k:=k+1; if k=2 then begin m:=i; break; end; end; if m>0 then begin for i:=m to n-1 do a[i]:=a[i+1]; writeln('новый массив:');
for i:=1 to n-1 do write(a[i],' '); end else writeln('нет такого элемента'); end.
#include <stdio.h>#include <locale.h>#include <conio.h>int main(){ int boys = 0, count_boys = 0; int girls = 0, count_girls = 0; int tmp = 1; setlocale(LC_ALL, "rus"); printf("Введите рост ученика\nРост мальчиков задается отрицательными значениями\nРост девочек положительными\n"); printf("Введите 0 если ввели рост всех учеников\n"); // вводим рост учеников while (tmp != 0) { scanf_s("%d", &tmp); if (tmp > 0) { girls += tmp; count_girls++; } else if (tmp < 0) { boys += tmp; count_boys++; } } // вычисляем средний рост учеников if (count_boys > 0 && count_girls > 0) { boys = -boys / count_boys; girls = girls / count_girls; } else { printf("Рост мальчиков либо девочек не был задан\n"); _getch(); return 0; } if ((boys - girls) > 10) printf("Средний рост мальчиков больше среднего роста девочек на 10 см\n"); else printf("Средний рост мальчиков не превышает среднего роста девочек на 10 см\n"); _getch(); return 0;} // попытка №2
var a: array [1..n, 1..n] of integer; s, i, j, k: integer;
begin
writeln('Введите элементы массива :');
for i := 1 to n do
begin
for j := 1 to n do
begin
readln(a[i, j]);
end;
end;
for i := 1 to n do
begin
for j := 1 to n do
begin
s := s + a[i, j];
end;
end;
writeln('Сумма элементов = ', s);
writeln('Номера строк :', n);
readln;
end.