В одномерном массиве А(10) найти номера всех элементов, значение которых – двузначное число

@hoochie · Регистрация: 16.12.2009

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

Напишите пожалуйста программу!!!!!!!СПАСИБО!!!!!!
В одномерном массиве А(10) найти номера всех элементов, значение которых – двузначное число.

@sheka · 17.12.2009, 01:09

for i:=1 to 10 do if (a[i]<=99)and(a[i]>=10) then writeln(i);

@Inadequate · 19.12.2009, 09:41

Pascal

uses
  crt;
const
  max=10;
function Pr(i:integer):boolean;
var
  temp,c:integer;
begin
  temp:=i;
  c:=0;
  while temp<>0 do
  begin
    inc(c);
    temp:=temp div 10
  end;
  Pr:=c=2
end;
var
  a:array[1..max]of integer;
  i:integer;
begin
  clrscr;
  {çàäàåì âûâîäèì ñ÷èòàåì}
  writeln('Èñõîäíûé ìàññèâ:');
  write('[ ');
  for i:=1 to max do
  begin
    a[i]:=random(1000)-500;
    if Pr(a[i]) then
      textcolor(2)
    else
      textcolor(4);
    write(a[i],' ')
  end;
  textcolor(0);
  writeln(']');
  {íàõîäèì íîìåðà}
  writeln('Íàéäåííûå íîìåðà: ');
  for i:=1 to max do
    if Pr(a[i]) then
      write(i,' ');
  writeln
end.

@hoochie 0 / 0 / 1 Регистрация: 16.12.2009 Сообщений: 116
		1
	В одномерном массиве А(10) найти номера всех элементов, значение которых – двузначное число 17.12.2009, 01:05. Показов 1657. Ответов 2 Метки нет (Все метки) Напишите пожалуйста программу!!!!!!!СПАСИБО!!!!!! В одномерном массиве А(10) найти номера всех элементов, значение которых – двузначное число. 0

@sheka Босс 161 / 126 / 10 Регистрация: 03.06.2009 Сообщений: 750
	17.12.2009, 01:09	2
	for i:=1 to 10 do if (a[i]<=99)and(a[i]>=10) then writeln(i); 0

	19.12.2009, 09:41

В одномерном массиве А(10) найти номера всех элементов, значение которых – двузначное число

Решение