Найти количество элементов, кратных 3 среди четырех наибольших элементов отсортированного по убыванию массива F(14)

@kostyaa · Регистрация: 11.02.2013

Студворк — интернет-сервис помощи студентам

Найти количество элементов, кратных 3 среди четырех наибольших элементов отсортированного по убыванию массива F(14)

Добавлено через 24 секунды
помогите пожалуйста

@Puporev · 20.02.2013, 19:10

Pascal

uses crt;
const n=14;
var f:array[1..n] of integer;
    i,j,k,x:integer;
begin
clrscr;
randomize;
writeln('Исходный массив F:');
for i:=1 to n do
 begin
  f[i]:=random(50);
  write(f[i]:4);
 end;
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if f[i]<f[j] then
 begin
  x:=f[i];
  f[i]:=f[j];
  f[j]:=x;
 end;
writeln('Отсортированный массив:');
for i:=1 to n do
write(f[i]:4);
writeln;
k:=0;
for i:=1 to 4 do
if f[i] mod 3=0 then k:=k+1;
write('Количество кратных 3 из первых 4х=',k);
readln
end.

@kostyaa 0 / 0 / 0 Регистрация: 11.02.2013 Сообщений: 2
		1
	Найти количество элементов, кратных 3 среди четырех наибольших элементов отсортированного по убыванию массива F(14) 20.02.2013, 18:52. Показов 1435. Ответов 1 Метки нет (Все метки) Найти количество элементов, кратных 3 среди четырех наибольших элементов отсортированного по убыванию массива F(14) Добавлено через 24 секунды помогите пожалуйста 0

Опции темы

Найти количество элементов, кратных 3 среди четырех наибольших элементов отсортированного по убыванию массива F(14)

Решение