Вводится 15 чисел.Найти максимальный элемент среди положительных трехзначных чисел и произведение последних трех

@antonxh · Регистрация: 16.05.2013

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

Вводится 15 чисел.Найти максимальный элемент среди положительных трехзначных чисел и произведение последних трех.

@BAAAAAas · 16.05.2013, 11:17

Как-то так

Pascal

uses crt;
const
n=15;
var a:array [1..100] of integer;
i,max,k,s:integer;
begin
clrscr;
k:=0;
s:=0;
max:=100;
for i:=1 to n do
 begin
   write(i,'-й элемент:');readln(a[i]);
   if (a[i]>0)and(100<=a[i])and(a[i]<=999)and(a[i]>max) then
       begin
           max:=a[i];
           inc(k);
       end;
   s:=a[n-2]*a[n-1]*a[n];
 end;
if k=0 then writeln('Таких элементов нет') else
     writeln('Max=',max);
writeln('Произведение трех последних чисел=',s);
readkey;
end.

@antonxh 1 / 1 / 0 Регистрация: 16.05.2013 Сообщений: 12
		1
	Вводится 15 чисел.Найти максимальный элемент среди положительных трехзначных чисел и произведение последних трех 16.05.2013, 10:13. Показов 1405. Ответов 1 Метки нет (Все метки) Вводится 15 чисел.Найти максимальный элемент среди положительных трехзначных чисел и произведение последних трех. 0

	16.05.2013, 11:17

Вводится 15 чисел.Найти максимальный элемент среди положительных трехзначных чисел и произведение последних трех

Решение