вариантами разных циклов (например, с заранее заданным
количеством повторений, с предусловиями, с постусловиями, с
меткой и разветвлением).
В массиве из 15 элементов (ввод переменных – на ваше усмотрение)
подсчитать количество положительных (четных) и сумму
отрицательных элементов по информатике, ____ Реализовать программу следующего задания не менее чем двумя
вариантами разных циклов (например, с заранее заданным
количеством повторений, с предусловиями, с постусловиями, с
меткой и разветвлением).
В массиве из 15 элементов (ввод переменных – на ваше усмотрение)
подсчитать количество положительных (четных) и сумму
отрицательных элементов.
Объяснение:
var ran0: array[1..20] of string; {массив для ввода туда слов}
i,j:integer;
strk:string;
begin
for i:=1 to 20 do
begin
readln(ran0[i]); {вбиваем туда слова}
ran0[i]:=ran0[i][2:]; {отбрасываем цифру с точкой с среза}
end;
for i:=1 to 19 do {выполняем обычную сортировку}
for j:=1 to 20-i do
if (ran0[j])>(ran0[j+1]) then {каждый сивол кодируется числовым значением, поэтому чем меньше код символа, тем ближе символ к началу}
begin
strk:=ran0[j]; {сортируем массив}
ran0[j]:=ran0[j+1];
ran0[j+1]:=strk;
end;
for i:=1 to 20 do {выводим отсортированный массив}
write(ran0[i][3:],', ');
end.
Поделитесь своими знаниями, ответьте на вопрос:
Текст содержит 12 страниц, на каждой из которых 16 строк по несколько символов в каждой. сколько символов в каждой строке, если известно, что информационный вес текста составляет 18 кбайт, а каждый символ текста кодируется двумя байтами? 1) 768 2) 24 3) 48 4) 96