#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 c, a: array[1..20] of integer; i: integer; begin write('Первый массив '); for i := 1 to 20 do begin c[i] := i * (-5); write(c[i], ' '); end; writeln; write('Преобразованный массив '); for i := 1 to 20 do begin a[i] := c[20 - i + 1]; write(a[i], ' '); end; end.
ИЛИ Программа не использующая два массива, а просто переворачивающая первый
var c: array[1..20] of integer; i: integer; begin write('Первый массив '); for i := 1 to 20 do begin c[i] := i * (-5); write(c[i], ' '); end; writeln; write('Преобразованный массив '); for i := 20 downto 1 do write(c[i], ' '); end.
if ((boys - girls) > 10) printf("Средний рост мальчиков больше среднего роста девочек на 10 см\n"); else printf("Средний рост мальчиков не превышает среднего роста девочек на 10 см\n"); _getch(); return 0;}
// попытка №2
var
c, a: array[1..20] of integer;
i: integer;
begin
write('Первый массив ');
for i := 1 to 20 do begin
c[i] := i * (-5);
write(c[i], ' ');
end;
writeln;
write('Преобразованный массив ');
for i := 1 to 20 do begin
a[i] := c[20 - i + 1];
write(a[i], ' ');
end;
end.
ИЛИ Программа не использующая два массива, а просто переворачивающая первый
var
c: array[1..20] of integer;
i: integer;
begin write('Первый массив ');
for i := 1 to 20 do begin
c[i] := i * (-5);
write(c[i], ' ');
end;
writeln;
write('Преобразованный массив ');
for i := 20 downto 1 do write(c[i], ' ');
end.
Обе программы работают!