сервис вопросов и ответовДаю 16пкт!!! Помогите пожалуйста! Информатика. 9 класс! Номера 2,3,4 на фото.
5-9 класс|
|
Прикрепленные изображения
Marusia2001
28 окт. 2014 г., 13:57:24 (9 лет назад)
125ВОП
28 окт. 2014 г., 16:57:00 (9 лет назад)
1)
var
a:array [1..100] of longint;
i,j:longint;
begin
for i:=1 to 31 do readln(a[i]);
for i:=1 to 31 do
if a[i]>0 then inc(j);
writeln(j);
end.
2)
var
a:array [1..100] of longint;
i,holod,teplo,zero:longint;
begin
for i:=1 to 31 do readln(a[i]);
for i:=1 to 31 do
begin
if a[i]>0 then inc(teplo);
if a[i]=0 then inc(zero);
if a[i]<0 then inc(holod);
end;
writeln(holod);
writeln(zero);
writeln(teplo);
end.
3)
var
a:array [1..100] of longint;
i,j,n,k:longint;
begin
readln(n);
for i:=1 to n do readln(a[i]);
j:=a[1]; k:=1;
for i:=1 to n do
if a[i]>(или меньше, в зависимости от условия)k then begin k:=i; j:=a[i]; end;
writeln(k);
end.
Ответить
Другие вопросы из категории
Введите с клавиатуры числа c и m. Если меньшим из них является c, но его значение положительно, найдите и выведите на экран среднее арифметическое
значений этих чисел. Иначе, найдите и выведите сумму c и m.
Читайте также
Здравствуйте! Помогите пожалуйста, весь интернет облазила, не могу найти ответ на свой вопрос, вся надежда на этот сайт!
Задали сделать презентацию о Белке и Стрелке. Я работаю в "Презентация Microsoft PowerPoint" (в других не понимаю как, мне кажется эта наиболее удобная) и мне надо подобрать космический фон. Там, в "Дизайне" этой презентации ничего подобного нет. Я нашла в интернете подходящую картинку для фона, скачала ее на компьютер но я не знаю как ее вставить. Там есть "Шаблоны оформления на Microsoft Ofice Online", но там я ничего не поняла (написала "Космос", вышли несколько картинок, загрузила одну и теперь она неизвестно где) и есть "Шаблоны оформления: Дополнительные", там он просит найти фото. Я точно знаю куда я его загрузила. проверяю несколько раз, но он не находит. Помогите пожалуйста, 3 дня ответ не могу нигде найти!!!
ИНФОРМАТИКА 2 класс помогите с заданием ) 2 класс !!!!!!
помогите с заданием ) 2 класс !!!!!! ПОЖАЛУЙСТА
обведите синим два слова с одинаковым мешком букв:
1) мандарин
2)командир
3)светофор
4)помидор
5)пудель
:)спаниель
7)апельсин
8)кардамон
9)мойдодыр
и пожалуйста обьясните как это делать плиииз :*
Вы находитесь на странице вопроса "Даю 16пкт!!! Помогите пожалуйста! Информатика. 9 класс! Номера 2,3,4 на фото.", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.