program z_7;
var i, s, m: integer;
a: array [1..10] of integer;
begin
s:=0; m:=0;
writeln ('Введите 10 целых чисел:');
for i:=1 to 10 do begin
write (i, ' число: ');
readln (a[i]);
if a[i] > s then s := a[i];
end;
for i := 1 to 10 do
begin
if a[i]=s then m:=m+1;
end;
writeln(m, ' элемента(-ов) массива имеют максимальное значение.');
end
Список организаций: 1) "Ад" 2) "Народная расправа" 3) "Чайковцы" 4) "Долгушинцы" 5) 4 и 5 объединились в "Земля и Воля" 6) "Чёрный передел" 7) "Народная воля" 6 и 7 образовались после распада "Земли и Воли" Различия были прежде всего в способах достижения целей (например, "Народная воля" была готова пойти на убийство императора, а "Черный передел" нет) Сходства: выражали интересы крестьян, хотели отмены крепостного права, отмены самодержавия. "Чайковцы" были организаторами "Хождения в народ" ( отсюда и термин "народничество"), остальные партии поддержали это движение. Они считали крестьян движущей силой, способной, объединившись, изменить существующий государственный порядок.
Список организаций: 1) "Ад" 2) "Народная расправа" 3) "Чайковцы" 4) "Долгушинцы" 5) 4 и 5 объединились в "Земля и Воля" 6) "Чёрный передел" 7) "Народная воля" 6 и 7 образовались после распада "Земли и Воли" Различия были прежде всего в способах достижения целей (например, "Народная воля" была готова пойти на убийство императора, а "Черный передел" нет) Сходства: выражали интересы крестьян, хотели отмены крепостного права, отмены самодержавия. "Чайковцы" были организаторами "Хождения в народ" ( отсюда и термин "народничество"), остальные партии поддержали это движение. Они считали крестьян движущей силой, способной, объединившись, изменить существующий государственный порядок.
var i, s, m: integer;
a: array [1..10] of integer;
begin
s:=0; m:=0;
writeln ('Введите 10 целых чисел:');
for i:=1 to 10 do begin
write (i, ' число: ');
readln (a[i]);
if a[i] > s then s := a[i];
end;
for i := 1 to 10 do
begin
if a[i]=s then m:=m+1;
end;
writeln(m, ' элемента(-ов) массива имеют максимальное значение.');
end